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Two Historic Facts: 

Dewey did not defeat Truman for the Presidency in 1945: 
Truman went on to be known for his truthful, forthright style 
and as one of the nation's most popular Chief Executive Officers. 
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A.N.A.L.O.G. Computing Magazine. Save $19 off the cover 
price with the convenience of having A.N.A.L.O.G. delivered directly 
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handy postage-paid order card located in the back of this magazine! 
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BY CLAYTON WALNUM 

One of the newest pieces of Atari 8-bit 
hardware is the light gun that comes 
with the XE Game System. It can 
also be purchased separately, 
although I've never seen it in a store. 
If you're interested in obtaining one, you can 
order directly from Atari. 

The light gun can add a lot to computer 
games by allowing the player to interact in 
a more "natural" manner than the joystick 
allows. Unfortunately, up until now, there has 
been little or no documentation published on 
how to use the light gun from a programming 
point of view. 



This month ANALOG makes up for that 
lack with the publication of Matthew Rat- 
cliffs Gun Assist, an assembly language sub- 
routine that you can use in your own 
programs. Gun Assist takes care of all the de- 
tails involved in incorporating the light gun 
in your games. Further, Matt's informative 
article tells you exactly how the light gun 
works. He passes along everything he learned 
during his exploration of this new Atari 
peripheral. 

Of course, we haven't published Gun As- 
sist just to be nice guys. We hope that, in the 
near future, we'll see many game (and maybe 
even nongame) submissions that incorporate 
the light gun. We've supplied the documen- 



tation, now let's see what you can do with it! 

Also in this issue, we have, from the pro- 
lific Bryan Schappel and Barry Kolbe, Cap- 
ital!, a sensational game of high finance. This 
program was inspired by another popular 
board game, but adds its own twists and turns 
to the now famous real-estate buying-and- 
selling scenario. 

In addition, Tom Hudson's popular Boot 
Camp continues, and so does BASIC Train- 
ing. When you put this all together with the 
reviews and the other regular features, we 
think you'll find this issue to be as exciting 
and informative as usual. 

But enough of this chatter. Let's start 
reading. 
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Picture Perfect 

This combination picture editor and animator wiMet you manipulate your MkroPainter 

format pictures in a variety of useful ways. 

by Joe D. Brzuszek 
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Capital! 



Get ready to make your first fortune in this commercial-quality, machine-language 

game of high finance. 

by Bryan Scbappel and Barry Kolbe 
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Nuclear Mountain 

An exciting search-and-destroy mission, written in Atari BASIC. 
by Brad Tlmmlns 



i ! I 




58 

Gun Assist 






Atari's new light gun has become a popular gaming peripheral. Here's a machine- 
language routine that'll help you use the light gun in your own programs. 
by Matthew J.W. Batclltl 
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Where to Write 

All submissions should be sent to: ANALOG 
Computing, P.O. Box 1413-M.O, Manchester, CT 
060401413. All other editorial material (letters, 
press release, etc.) should be sent to: Editor. 
ANALOG Computing, 9171 Wilshire Blvd., Suite 
300, Beverly Hills, CA 90210. 

Correspondence regarding subscriptions, in- 
cluding problems and changes of address, should 
be sent to: ANALOG Computing, P.O. Box 10927, 
North Hollywood, CA 91615, or call (818) 
760-8983. 

Correspondence concerning a regular column 
should be sent to our editorial address, with the 
name of the column included in the address. 

We cannot reply to all letters in these pages, 
so if you would like an answer, please enclose a 
self-addressed, stamped envelope. 

An incorrectly addressed letter can be delayed 
as long as two weeks before reaching the proper 
destination. 

Advertising Sales 

Address all advertising materials to: 
Paula Thornton — Advertising Production 
ANALOG Computing 

9171 Wilshire Blvd., Suite 300 
Beverly Hills, CA 90210. 

Permissions 

No portion of this magazine may be reproduced 
in any form without written permission from the 
publisher. Many programs are copyrighted and 
not public domain. 

Due, however, to many requests from Atari club 
libraries and bulletin-board systems, our new poli- 
cy allows club libraries or individually run BBSs 
to make certain programs from ANALOG 
Computing available during the month printed on 
that issue's cover. For example, software from the 
July issue can be made available July 1. 

This does not apply to programs which specifi- 
cally state that they arc not public domain and, thus, 
are not for public distribution. 

In addition, any programs used must state that 
they are taken from ANALOG Computing Maga- 
zine. For more information, contact ANALOG 
Computing at (213) 858-7100, ext. 163. 

Subscriptions 

ANALOG Computing, P.O. Box 16927, North 
Hollywood, CA 91615: (818) 760-8983. Payable 
in U.S. funds only. U.S.: $28-one year, $54-two 
years, $76-three years. Foreign: Add $10 per 
yea 1 ". For disk subscriptions, see the cards at the 
back of this issue. . ,, 

Authors 

When submitting articles and programs, both 
program listings and text should be provided in 
printed and magnetic form, if possible. 'Typed or 
printed text copy is mandatory, and should be in 
upper- and lowercase with double spacing. If a sub- 
mission is to be returned, please send a self- 
addressed, stamped envelope. 

For further information, write to ANALOG 
Computing, P.O. Box 1413-MO, Manchester, CT 
06040-1413. 

JE Publishers Representative 

6855 Santa Monica Blvd., Suite 200 
Los Angeles, CA 90038 
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Express! on cartridge 

Orion Micro Systems has announced a car- 
tridge version of Keith Ledbetter's popular 
Express! telecommunications program. The 
program is stored in a 64K bank-switched 
cartridge and is written entirely in assembly 
language, making the program compact 
enough to allow the addition of many new 
features. The new version of Express! is com- 
pletely rewritten and will work with any mod- 
em that has an "R:" handler available for it. 

The new Express! uses drop-down menus 
like those on the ST. Also, the program sup- 
ports the Atari XEP-80 80-column card, 
although, when running in 80 columns, the 
drop-down menus are replaced by standard 
text menus. 

One of the new features added to this pro- 
gram is a full-screen editor that allows you 
to compose messages, as well as edit text in 
the capture buffer. The text editor supports 
such functions as cut-and-paste, line tagging, 
find and search-and-replace. 

The cartridge has been designed so that 
other cartridges may be "piggy-backed" into 
it, allowing you to turn off Express! and 
switch to the another cartridge at will. The 
cartridge version of Express! is $69.95. 

Orion Micro Systems 
2211 Planters Row Drive 
Midlothian, VA 23113 
(804) 794-9437, 6 p.m. to 10 p.m. 
CIRCLE #104 ON READER SERVICE CARD. 




Starter pack 



The Computer Starter Kit, marketed by 
Curtis Manufacturing Company, supplies 
new computer owners with five computer ac- 
cessories that are designed to "protect com- 
puters, save desktop space and create greater 
user comfort." Included in the package is a 
copy holder, universal printer legs, computer 
cleaning kit, a surge protector, and a disk file 
for either 3 '/2-inch or 5 14 -inch diskettes. 

All of the products that make up the kit are 
standard equipment that have been available 

CIRCLE #105 ON 



separately, but which have been packaged 
together for "ultimate consumer convenience 
and additional savings," according to Tom 
Judd, president of Curtis. 

The Computer Starter Kit carries a suggest- 
ed retail price of $59.95. 

Curtis Manufacturing Company, Inc. 
30 Fitzgerald Drive 
Jaffrey, NH 03452 
(603) 532-4123 
READER SERVICE CARD. 



8-bit Pascal 



Just released from CLSN Software is 
CLSN Pascal. This implementation of the 
popular programming language boasts an in- 
line editor, a compilation speed of 1,000 lines 
per minute, run-time error locator and more. 
CLSN Pascal supports a full set of data types, 
including char, boolean, byte, shortint, word, 
integer and longint. Arrays, sets, file types 
and records are also supported. The following 
is a list of reserved words in CLSN Pascal: 



case 


function 


or 


then 


const 


goto 


packed 


to 


div 


if 


procedure 


type 


do 


in 


program 


until 


downto 


inline 


record 


var 


else 


label 


repeat 


while 
xor 



CLSN Pascal sells for $39.95. 











CLSN Software 


absolute 


end 


mod 


set 


10 Arlington Place 


and 


file 


nil 


shl 


Kearny, NJ 07032 


array 


for 


not 


shr 


(201) 998-1554 


begin 


forward 


of 


string 
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Revenge of the NERDS 



The National Educational Report Drawing 
Services (NERDS) has just released a new 
set of graphics disks for use with Broder- 
bund's Print Shop. The graphics on these 
disks are directed at the educational computer 
market and, according to NERDS, each pair 
represents about 150 hours of research and 
drawing. 

The newly released Map Disks 3 and 4 in- 
clude over 230 pictures of Russia, China, 
Africa and the Far East. Map Disks 1 and 
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2 are also available and include maps of the 
United States, South America, Central 
America, Europe and Canada. In addition, 
NERDS supplies biology and periodic table 
disks. 

The NERDS graphics disks are $15 per 
pair. 

NERDS Software 
18 Wendy Drive 
Farmingville, NY 11738 
READER SERVICE CARD. 
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Snowplow correction 

There is a problem with the game Snow- 
plow from the September '88 issue. It seems 
that the last game board does not load in. I 
worked on and tested the routines that are 
supposed to do this, and they seem to work 
by themselves but fail when put together. So 
I rewrote these routines, and the following 
BASIC program can be used to modify the 
original game. To be on the safe side, make 
a copy of Snowplow on another disk. Check 
the data over carefully when you type the list- 
ing. A tiny mistake can cause major 
problems. Place the disk containing your 
copy of Snowplow into your disk drive, and 
then run the program below. Follow the 
prompts, and your copy of Snowplow will be 
modified on the disk. 



100 REM SAUE"D: 
110 DIM N$C203 , 
OF SNOWPLOW FI 
130 WS="D:": W$ t 
140 TRAP 160:0P 
150 GOTO 180 
160 ? "FILE NOT 
170 REM POSITIO 



? "FINDING 
FOR 1=1 TO 
REM PUT IN 
? "INSERTIN 
FOR 1=1 TO 



180 

190 

200 

210 

220 

I 

230 REM SKIPPIN 

240 ? "ANOTHER 

250 FOR 1=1 TO 

260 REM FIXING 

270 FOR 1=1 TO 

280 CLOSE 81:? 

290 REM DIRECTO 

300 DATA 169,64 

310 DATA 32,90, 

82 

320 DATA 169,0, 

78 

330 DATA 32,36, 

340 DATA 217,74 

,208 

350 DATA 8,230, 

165 

360 DATA 178,14 

169 

370 DATA 64,133 

,234,234 

380 REM 74 BYTE 

385 REM JMP PAT 

390 DATA 76,53 



SN0W12.FIX 

W$C203L3120 ? "IS":? "NAME 

LE"J :INPUT N$ 

3>=N$ 

EN 81,12,0,W$ 

FOUND"iEND 
N AT NEWBEG 
PLACE" 

1273:GET 81,A:NEXT I 
NEH STUFF 
G PATCH" 
741READ AiPUT 81,A:NEKT 

G 

PATCH" 

93: GET 81, A: NEXT I 
JMP 

3iREAD A:PUT 81,A:NEXT I 
"D0NE":END 
RY PATCH 
133,178 
66,32,215,74,169,3,133,1 

133,186,32,225,73,32,81, 

75,32,48,71,32,130,70,32 
,32,50,65,165,178,201,64 

178,32,166,79,76,106,64, 

1,235,70,32,156,70,16,6, 

,178,208,226,230,178,234 

S 

CH 

64 



There is a new restriction to the names of 
the game boards that you create. They must 
be named "SMAR?" where the question 
mark must be a letter from A through Z. 
Snowplow will load these screens in alpha- 
betical order and will go back to the built-in 
game board whenever it doesn't find the next 
letter in the alphabet. Any boards you have 
already created should be renamed in the ord- 
er you wish to play them. 

—Barry Kolbe 
Mazomanie, WI 



Libelous statements? 

Shame on you for permitting Frank Cohen 
to deliver such a low blow to one of the finest 
Atari clubs in the country (top of page 51 in 
the April '89 issue). 

Since when does a brief verbal disagree- 
ment between two spectators at a computer 
show rate news coverage in a national maga- 
zine? Frank Cohen should also get his quotes 
straight before he writes libelous statements 
that sully the pristine reputation of a fine club. 
The phrase as printed was never uttered, cer- 
tainly not with DALACE as the subject. The 
rest of his comments about DALACE are 
equally absurd. 

The Dallas Atarifest was well organized 
and took place in one of the finest exhibit 
halls in the country. Nearly 100 DALACE 
volunteers assisted in the setting up and tear- 
ing down of the show. These same volunteers 
manned the booths and the ticket sales, and 
frankly, I thought we all had a great time, 
with thousands of visitors attending. 

We can understand that, after having 
produced 8 through 10 shows on the road pri- 
or to Dallas, Sandy Austin was no doubt very 
tired (it was almost inhumane to expect one 
person to handle that much responsibility), 
but to suggest that Sandy quit because of Dal- 
las is ridiculous. Sandy quit almost two years 
after the Dallas Atarifest. 

We wish you had not printed Mr. Cohen's 
unfounded remarks. The damage has been 
done. However, we do want you to know that 
we appreciate ANALOG'S long history of 
support for the users' groups. Once mistake 
will never dim our long-standing admiration 
for your magazine. Long live ANALOG and 
the 8-bit Atari machines. 

-Jeff Golden 
Irving, TX 

We're sorry if Frank's ST Notes in the April 
issue was offensive to you, but we have to say 
that we're not really sure wliy you should be 
so upset. You seem to be reading things into 
the article that don 't exist. 

First, Frank certainly never made any 
libelous statements. He did report that a 
users ' group member shouted, ' 'DALACE is 
a pirate club," but that wasn't his remark, 
and it certainly wasn 't meant to imply that 
the members of DALACE were involved in 
software piracy. The quote was included to 
illustrate the growing tensions between the 
users ' groups involved. 

We just reviev.>ed the article and, outside 

of saying that there was particularly heavy 

friction between DALACE and the North 

Texas Users ' Group, we can find none of the 

"absurd" comments you are referring to. 

Also, it wasn 't reported that Sandy Austin 



quit her job right after the Dallas Atarifest; 
what Frank said was ' Later, Austin confid- 
ed to ANALOG that she was looking for 
another job." There's certainly no indication 
of when Sandy actually made her separation 
from Atari. 

Once again, we apologize if the article in 
question was offensive to anyone. ANALOG 
is quite aware of how difficult and frustrat- 
ing it is to organize a large Atarifest. We did, 
after all, have a great deal to do with the Wor- 
cester Atarifest. We salute all those people 
whose efforts have made the past Atarifests 
such a success. 

Fixes for Ultimate Graphics 
Convertor and Secret Agent 

We recently had production troubles with 
a couple of program listings, as undoubted- 
ly many of you have noticed. If you follow 
the instructions given below when typing 
these listings, you should be able to reproduce 
them with little trouble. 

First, Listing 1 of the Ultimate Graphics 
File Convertor in the May '89 issue was in- 
correctly laid out in the magazine, resulting 
in the order of the lines being jumbled. 
Worse, due to the jumbling, some of the lines 
were cut in half. To get this program running, 
type it from beginning to end (it doesn't mat- 
ter that you will be typing some of the lines 
out of order), except for Lines 7000, 8236, 
11200, 13501 and 13610. These are the jum- 
bled lines. Once you've got the listing typed, 
add the following lines: 

17000 REM GR.8 PUT 
8236 FOR N=l TO SHIFT i A = USR IADR CR0L$3 , 
START+7680, 76803 :NEXT N 
11200 POP :G05UB 13030:? "HERROR "JPEE 

IKC195);". correct and press any key.": 

GET 82, K 

13501 SECT=1:G0SUB 100OO:IF BUF$(1,173 
|="SSI CLIP NEWSROOM" THEH 13600 

13610 SIZE=ASCCBUF$ £28)3 : C0UNT=0 : 5=1 : N 

=32:G0SUB 20:P0KE 75S,2:P0KE 752,1:A=0 
I :G0T0 13410 

Listing 1 of Secret Agent in the June '89 
issue was also jumbled when laid out. In ad- 
dition, the 38th character of each full-length 
line was duplicated on the line below it. To 
type the listing (using M/L Editor), you must 
type each of the lines in order, which means 
you'll have to jump back and forth in the list- 
ing, finding where the lines actually continue. 
For example, at Line 4760 the program list- 
ing continues with Line 3920. You must look 
ahead until you find Line 4770 and continue 
typing there. Due to the jumbling, Lines 3490 
and 4340 were divided in the magazine. Type 
those lines as shown below: 

3490 DATA 232,200,192,5,208,242,230,197 
,134,190,96,189,0,132,217,214,5353 
4340 DATA 67,76,118,55,162,161,160,115, 
32,143,49,173,10,210,201,180,2247 

We apologize for any inconvenience this 
mix-up may have caused. 
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Few commercial picture-editing pro- 
grams offer cut and paste (or stamp) 
utilities that perform satisfactorily. 
One software package, for example, 
features a "rubber stamp" utility that 
is supposed to let the user stamp a graphics 
image "anywhere" on his picture. But the 
program does not allow the image to be 
moved horizontally by less than four pixels. 
Picture Perfect is a versatile, menu-driven 
picture-editing program that corrects this an- 
noying problem. 

Picture Perfect allows you to quickly dupli- 
cate an image at any pixel location (one pix- 
el accuracy). You can also manipulate the 
image in the following ways: You can flip it, 
double or halve its size, fill all of its colors 
at once or transfer it to another picture. You 
can even bring a series of screen images to 
life with the included animator routine. 

File Format 

The program loads MicroPainter (MP) 
62-sector picture files. If you're using 
Microlllustrator (MI) software {Atari Artist 
or Koala Pad), you can save a picture in MP 
format under the filename PICTURE on 
Drive 1 by pressing the Insert key. The color 
data, however, is not saved. To load PIC- 
TURE with MI, press Clear. 



by Joe D. Brzuszek 

Typing It In 

Type in Listing 1, using BASIC Editor II 
to check your work, and save it to a DOS disk 
as PICTPERF.BAS. Next type Listing 2 and 
run it. It will create a file on your disk called 
PICT.LST. Once this file has been created, 
load the program you created from Listing 
1, then type ENTER"D:PICT.LST" to merge 
the lines created by Listing 2. Now save the 
complete program as PICTPERF.BAS. 

Plug a joystick into Port 1 and type RUN 
"D:PICTPERRBAS". The title screen will 
appear after a short initialization delay. Press 
Start to view the main menu. 



Loading a Picture 

Select the "Disk" function from the main 
menu by placing the cursor over the Disk box 
and pressing the trigger or the Return key. 
A set of common disk commands will be dis- 
played. At the "Select item or return:" prompt, 
select "F. Load File" and enter a filename. 
If the file is a valid MP file, the picture and 
its colors will be loaded without any problem. 

If the file is PICTURE saved by MI, the 
colors will not be loaded and an Error-136 
(End of File) will occur. That's because the 
color data occupies the last four bytes in a 



MP file, and for some strange reason, MI 
does not save them. You can load the color 
data out of a compacted MI file; this time 
type a Control-P at the end of the filename. 
Type "B" and then Return to begin editing 
your picture. 

The Copy Function 

Copy: Copy is accessed by pressing the 
space bar, and it's divided into "frame" and 
"ditto" modes. You start out in ditto mode. 
Press the space bar to enter frame mode (the 
console or TV speaker clicks twice). 

Frame: Move the cursor to the upper-left 
corner of the image and tap the trigger. Press 
the space bar to try again, if necessary, then 
move the cursor to the lower-right corner. A 
flashing frame surrounds the image. The 
maximum area that you can frame is Vi the 
size of the picture (160 columns x 96 rows). 
Press "U" to cycle the frame's color (Colors 
0-3). When the frame surrounds everything 
that you want to copy, press the trigger to ac- 
tivate ditto mode. 

Ditto: Move the cursor and the image will 
follow. Press the trigger to make a copy of 
the image wherever you'd like. Press the 
space bar once to return to frame mode, or 
twice to return to the main menu. 
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Main Menu Functions 

Choose a function and its submenu will ap- 
pear. When you have made your selections 
and you're ready to execute the function, 
move the cursor over "OK" and press the 
trigger. If you decide not to execute the func- 
tion, press the space bar instead to return to 
the main menu. 

Mode: Switches the display between graph- 
ics modes 14 (also known as mode 7.5 or An- 
tic $E) and 8. 

Fill: This simultaneously fills Colors 0-3 
of an image with replacement colors. Choose 
the replacement colors and then select "OK" 
to fill. Ditto is activated once the image is 
filled. Fill is useful for preparing a highly 
detailed picture for printer output. 

Flip: "H" flips an image horizontally, and 
"V" flips it vertically. A Graphics 8 image, 
flipped horizontally, might look strange un- 
less you also use Fill to switch Colors 1 and 
2. 

Halve and Double: You can halve or dou- 
ble the size of an image horizontally or ver- 
tically. The height of a doubled image cannot 
exceed 96 rows, so it might get cropped. A 
similar danger exists whenever you halve an 
image; if you double an image after halving 
it, the resulting image may not resemble the 
original. 

Animate: You can animate a series of up 
to 50 on-screen images. Choose to create a 
"New" series or to "Append" new images 
to an existing series. Frame each one and then 
press the space bar. Select "Play," and the 
series will be played in the upper-left corner 
of the screen at the fastest speed. Press Op- 
tion to slow the speed. (There are six speeds 
available.) To get maximum speed, change 
Line 220 to: 220 NEXT Y Press the space 
bar to halt the animation. 

Cel: "Cel" refers to the piece of transpar- 
ent celluloid on which a cartoon character is 
painted. You can make any single color (0-3) 
or no color (N) in an image transparent to 
the background drawing. 
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USR Information 

The program makes use of a non-relocat- 
able machine-language Copy routine (see List- 
ing 3) stored in Memory Locations 
23253-23539 ($5AD5-$5BF3). Copy makes 
it possible to move image data with one pixel 
accuracy in graphics mode 14. Copy will also 
work in any four-color graphics mode in which 
a single pixel requires two bits of memory 



four-pixel resolution and no transparent 
color. 



Cursor Control 



Picture Perfect gives you control over the 
cursor's shape and speed. Pressing "I" 
changes its shape, and pressing "O" changes 
its speed. Two shapes are provided and this 
data is in Line 1610. 




(Graphics 3, 5, and 7). The USR call format 
is: A=USR(CY,S1,X1,Y1,X2,Y2,S2,X3,Y3,C2) . 
CY equals 23253, SI is the starting address 
(corresponding to the upper-left corner of the 
screen) of memory from which the image is 
to be copied, XI and Yl are the upper-left 
coordinates of the image, X2 and Y2 are the 
lower-right coordinates of the image, S2 is 
the starting address of memory to which the 
image is to be copied, and X3 and Y3 are the 
upper-left coordinates of the new location of 
the image. The value of C2 determines which 
color to make transparent: = Color 0, 64 
= Color 1, 128 = Color 2, 192 = Color 3, 
255 = no transparent color, 3 = fast copy, 



Last but Not Least 

The Break key is disabled in Line 8000 and 
pressing System Reset will not erase your pic- 
ture or colors but will wipe out the image in 
Copy memory. If you press Reset by mistake, 
just type "RUN" to continue working on your 
picture. (Program on page 44) 

Joe Brzuszek is majoring in computer 
science at the University of Pittsburgh and 
has owned his Atari 800 since 1983. In addi- 
tion to programming, Joe uses his Atari as 
a VT-100 terminal to communicate with a VAX 
main-frame computer system. 
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Capital! 



by Bryan Schappel and Barry Koine 



For all of you out there who have al- 
ways wanted to own it all, here is your 
chance. Get your checkbook, grab 
your accountant and get ready for 
Capital!, a game of high finance 
where you get to live out your fondest 
capitalistic dreams. This game is written in 
100% machine language; so play is fast and 
cruel. 



Typing It In 



Capital! is printed in two listings. Listing 
1 is the BASIC data used to create the CAPI- 
TAL.OBJ file on your disk. Follow the direc- 
tions in M/L Editor, found elsewhere in this 
issue, for typing instructions. 

Listings 2 through 7 are the complete com- 
mented MAC/65 source code for Capital! 
They need not be typed in to play the game; 
they are provided for those readers interest- 
ed in how the program works or who are 
learning 6502 assembly. 

After you have created the CAPITAL. OB J 
file just binary load it from DOS to play the 
game. 



Rules of Play 



To play Capital!, you must first choose your 
game options. There are only two: a fast or 
slow game and the number of players (2-4). 
The Option key is used to toggle between fast 
and slow. Use the Select key to choose the 
number of players. Pressing Start begins the 
game. Any time you wish to restart the game, 
press System Reset. 

A fast game is the default setting. In a fast 
game, if a player cannot pay a fee or a debt, 
that person is "broke" and may no longer 
play. The player's token is removed from the 
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game, and the player goes to debtor's prison. 
In a slow game a player must sell businesses 
in order to get enough cash to pay his debts. 
Of course, the player could still go broke in 
a slow game. The winner is the last player 
on the board. 

One last item: All money in this game is 
in $1,000 denominations, denoted by a G fol- 
lowing the amount. 



Names Screen 



Each player must enter his name (up to 
eight characters long). Only the letters A 
through Z may be used. The Return key is 
used to end the name, and Delete/Backspace 
is used to edit. 



making as much money as you can and be- 
coming a true capitalist. Near the bottom of 
the screen the current player's name is shown 
with his token number. You can see the tokens 
below the dice when the game is first start- 
ed. The bottom line shows how much cash 
each player has. 

Press Option to start the dice rolling and 
use Select to stop them. Your token will move 
automatically around the screen. The name 
of each business is shown as your token 
moves by or lands on it. If you land on one 
of these, the game will take you to the trans- 
action screen (see below). The game waits 
eight seconds so you can see what happened. 
If you tire of waiting those eight seconds, just 
press a key to skip the wait. 



THERE ARE SEVERAL SPECIFIC LOCATIONS: 



Symbol 


Location 


Result 


$ 


Stock Market 


You receive $12G ($12,000). 


L 


Luck Square 


Game goes to the transaction screen. 


H 


Hog Hilton 


Nothing; it's a vacation. 


T 


Tax Square 


You lose 12% of your cash. 


C 


Capital Gains Tax 


Game goes to the transaction screen. 



USA Map Screen 

This is the game board: a map of the U.S. 
showing mountain ranges, dice and little 
squares and circles which represent business- 
es. Your task is to travel around the U.S. and 
buy up as many of these as possible, thus 



If you land on $, H or T, you are not al- 
lowed to carry on any transactions on that 
turn. 

Transaction Screen 

The Luck and Capital Gains squares will 
be discussed at the end of this section. Usual- 



ly you arrive at this screen because you land- 
ed on a property. The top line has the 
property's name on it. Below the name is in- 
formation about the business: purchase price, 
resale price, improvement level , double sta- 
tus, fee and the owner's name. 

Resale price is the amount you will receive 
if you sell this property voluntarily. It is be- 
tween half price and full price. If you are 
forced to sell a property (slow game) because 
of insufficient funds, the resale price is half 
of the purchase price. 

The improvement level of each property 
starts at and may go up to 3. Improving a 
business costs $10G and increases the pur- 
chase price (and hence resale price) by $5G. 
More importantly, each increase doubles the 
fee other players must pay you when they land 
on this business. 

Some businesses are "doubles." If you land 
on a double, you have the option of buying 
it and its other half on the same turn. Buy- 
ing the second half costs one and one-half of 
the double's normal purchase price. The rea- 
son you want to get doubles is that anyone 
landing on one double gets charged a fee 
equal to the sum of both fees! 

If the property you landed on is unowned 
you may purchase it, assuming you have 
enough cash. Next you may sell a property. 
Finally, you may improve a property. If you 
respond "y" to either of the last two options, 
the game goes to the pick property screen. 
You may cycle through the properties using 
the spacebar. Press Return to choose a 
property. You may exit using the Escape key. 
The only time you cannot use the Escape key 
is in a slow game if you are forced to sell. 
You must sell enough properties to obtain the 
cash to pay your debts. You may sell and/or 
improve any property you own, not just the 
one you landed on. 

If another player owns the property you 
landed on, you are required to buy goods 
and/or services by paying the player a fee. 
If you have enough cash, it is automatically 
deducted from your account. The message 
"Transaction completed" lets you know this 
has been done. In the fast game, if you don't 
have sufficient funds to pay, you are broke 
and may no longer play. Your properties are 
confiscated and will be available for sale to 
the other players (at half price!). 

In the slow game you must sell properties 
to pay your debts. It is possible to get two 
"Transaction completed" messages. The first 
would be for selling a property; the second 
would be for paying a fee. This message stays 
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on the screen for eight seconds. You may skip 
the wait by pressing any key. 

The Luck Square 

Luck, as we all know, can be good or bad. 
If your luck is good, you could win $10G, 
$15G, or a free improvement for a property. 
If you don't have a property to improve, you 
will get $10G instead. Bad luck results in los- 
ing $10G, in one business fee being cut in 
half, or in having the purchase price (and thus 
resale price) on a business cut in half. 

Capital Gains Tax 

This is like bad luck— only worse. If you 
land on this square you lose $45G. 



Technical Notes 

The program functions on a custom 
GRAPHICS narrow play field screen, an 
ANTIC 4 map screen and a unique intro 
screen. This intro screen was produced by us- 
ing a very long DLL The word "CAPITAL!" 
was made from ordinary control characters. 
Examine the source code to see how the let- 
ters were shaded. 

This game can make friends or enemies for 
you— hope you can be a good capitalist! 

Barry Kolbe is a high school math teacher 
who uses his Atari in the classroom to demon- 
strate graphing. Bryan Schappel is current- 
ly setting up a new home with his wife Carol. 



LISTING 1: MIL EDITOR DATA 

1OO0 DATA 255,255,0,48,2,48,76,148,57, 

64,49,85,75,0,0,0,7658 

lOlO DATA 0,0,0,0,0,253,245,215,215,21 

5,215,245,253,127,95,215,5285 

1020 DATA 215,215,215,95,127,253,247,2 

23,223,223,223,247,253,127,223,247,374 

1030 DATA 247,247,247,223,127,213,213, 

215, 215, 215, 215, 213, 213, 87, 87, 215, 6266 

1040 DATA 215,215,215,87,87,255,250,23 

4,235,235,235,234,250,255,175,175,368 

1850 DATA 239,255,239,175,175,85,85,85 

,85,85,85,85,85,85,85,85,4376 

1060 DATA 105,105,85,85,85,255,234,238 

,254,254,254,254,250,255,171,187,512 

1070 DATA 191,191,191,191,175,255,171, 

235,234,234,235,235,171,255,234,235,13 

76 

1080 DATA 171,171,235,235,234,255,254, 

234,235,234,255,234,254,255,191,171,21 

29 

1090 DATA 255,171,235,171,191,213,223, 

223,223,223,223,223,213,87,247,247,966 

4 

1100 DATA 247,247,247,247,87,255,234,2 

35,235,235,235,234,234,255,255,255,342 

8 
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Hie DATA 255,255,239,175,175,95,95,95 

,95,95,95,95,95,245,245,245,2412 

1120 DftTft 245,245,245,245,245,239,191, 

255,251,238,191,254,255,255,255,255,41 

84 

1130 DftTft 255,255,255,255,255,6,255,25 

5,255,255,255,255,255,0,0,255,6885 

1140 DftTft 255,255,255,255,255,0,0,0,25 

5,255,255,255,255,0,0,0,8990 

1150 DftTft 0,255,255,255,255,0,0,0,0,0, 

255,255,255,0,0,0,3900 

1160 DftTft 0,0,0,255,255,0,0,0,0,0,0,0, 

255,192,192,240,6178 

1170 DftTft 240,252,252,255,255,240,240, 

240,240,252,252,252,252,3,3,15,4084 

1188 DftTft 15,63,63,255,255,15,15,15,15 

,63,63,63,63,255,255,252,8580 

1190 DftTft 252,252,240,240,192,252,252, 

252,252,240,240,240,240,255,255,191,36 

37 

1200 DftTft 191,175,47,43,11,191,191,191 

,191,47,47,47,47,255,255,255,1476 

1210 DftTft 255,255,255,255,170,255,255, 

255, 255, 255, 255, 170, 170, 255, 255, 255, 33 

40 

1220 DftTft 255,255,170,170,0,191,191,19 

1,191,191,191,191,191,168,168,0,2563 

1230 DftTft 0,0,0,0,0,254,250,240,240,19 

2,192,192,192,207,207,207,6731 

1240 DftTft 207,207,207,63,63,63,63,63,6 

3,255,255,255,255,255,255,255,8144 

1250 DftTft 255,63,63,63,63,255,255,255, 

255,255,255,63,15,240,240,240,7143 

1260 DftTft 240,240,192,192,0,252,252,25 

2,252,252,252,252,252,3,3,3,2611 

1270 DftTft 3,15,15,15,15,63,63,63,63,25 

5,255,255,255,192,192,192,3743 

1280 DftTft 192,240,240,252,255,3,3,3,3, 

15,15,63,255,192,192,192,8071 

1290 DftTft 192,192,192,192,192,3,3,3,3, 

3,3,3,3,0,0,0,4398 

1380 DftTft 3,3,15,15,63,240,252,255,255 

,252,255,252,252,240,252,252,2065 

1310 DATA 252,252,252,252,240,252,240, 

192,192,0,0,0,0,252,240,240,2454 

1320 DATA 240,192,192,192,192,192,192, 

192,192,240,240,252,252,192,192,240,75 

6 

1330 DATA 240,240,252,252,252,252,252, 

252,240,240,240,192,192,252,240,192,25 

66 

1340 DATA 240,252,252,255,255,192,0,0, 

0,192,192,192,192,11,11,11,5614 

1350 DATA 11,11,11,15,15,15,15,15,63,6 

3,63,255,255,0,0,3,179 

1360 DATA 3,3,15,15,63,0,48,188,191,47 

,47,11,11,15,15,15,7285 

1370 DATA 207,255,255,255,255,12,60,24 

0,255,255,255,255,255,0,0,0,1584 

1380 DATA 0,252,240,0,0,255,255,255,25 

5,255,240,192,192,240,192,0,6484 

1390 DATA 0,0,0,0,0,255,255,255,255,25 

5,255,255,252,255,191,191,222 

1400 DATA 191,175,47,43,10,63,63,63,63 

,63,63,255,255,252,252,240,3040 

1410 DATA 240,252,252,255,255,0,0,0,0, 

3,15,63,255,0,3,15,9756 

1420 DftTft 63,255,255,255,255,0,0,0,0,3 

,15,15,63,240,240,240,7047 

1430 DATA 240,192,192,192,192,170,170, 

0,0,0,0,0,0,10,10,0,6858 

1440 DATA 0,0,0,0,0,2,2,0,0,0,0,0,0,0, 

15,14,1915 

1450 DATA 8,25,21,0,12,20,22,28,0,4,6, 

15,7,5,0,5,2656 

1460 DATA 8,14,18,0,7,19,3,0,16,15,21, 

19,14,0,31,12,3312 

1470 DATA 10,0,23,37,25,69,65,0,41,60, 
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73,84,0,12,15,38,6472 

1480 DATA 17,13,0,18,27,36,37,0,22,51, 

11,0,53,48,56,61,6211 

1490 DATA 32,0,100,47,42,128,0,0,0,2,2 

,4,0,0,2,2,3140 

1500 DATA 128,0,0,0,2,2,128,0,2,2,0,4, 

0,0,0,128,4680 

1510 DATA 2,2,0,2,2,4,0,2,2,119,1,119, 

1,119,1,119,7819 

1528 DATA 1,0,11,17,26,0,9,18,27,0,0,0 

,0,5,4,0,2332 

1530 DATA 0,0,10,9,0,0,0,0,16,15,0,0,2 

0,19,0,0,2416 

1540 DATA 0,0,0,0,28,27,8,31,30,0,0,35 

,34,15,13,10,3787 

1550 DATA 5,3,1,112,112,112,70,67,53,6 

,48,98,0,32,0,34,7503 

1560 DATA 34,34,34,34,34,34,34,34,34,3 

4,34,34,34,34,34,34,6184 

1570 DATA 2,176,194,227,48,32,70,99,53 

, 65, 166, 52, 112, 112, 112, 112, 5201 

1588 DATA 112,112,70,119,53,112,112,70 

,0,32,112,6,112,6,112,6,9823 

1590 DATA 65,207,52,112,112,112,240,66 

,139,53,2,2,2,2,48,6,8810 

1600 DATA 112,6,112,6,48,86,143,54,48, 

86,164,54,112,112,70,185,5051 

1610 DATA 54,112,6,112,112,112,6,86,24 

5,54,65,230,52,112,112,80,5740 

1620 DATA 68,0,112,4,4,4,4,4,4,4,4,4,4 

,4,4,4,2544 

1630 DATA 4,4,4,4,4,4,132,70,99,53,194 

,11,55,160,66,227,4462 

1640 DATA 48,65,16,53,64,0,32,96,32,64 

,0,96,0,0,0,0,5470 

1650 DATA 0,0,0,0,35,33,48,41,52,33,44 

,1,8,0,0,0,3981 

1660 DATA 8,0,244,242,225,238,243,225, 

227,244,233,239,238,243,0,0,5824 

1670 DATA 0,0,0,0,0,0,0,8,0,0,0,0,0,0, 

0,0,1670 

1680 DATA 0,0,0,0,0,0,101,110,116,101, 

114, 0, 121, 111, 117, 114, 3281 

1690 DATA 0,110,97,109,101,115,0,0,0,0 

,0,72,128,128,74,0,9262 

1700 DATA 72,128,128,74,0,72,128,128,7 

4,8,72,128,74,0,72,128,2144 

1710 DATA 74,0,72,128,128,74,0,74,0,0, 

0,0,72,0,0,0,5124 

1720 DATA 0,0,0,128,200,0,0,0,128,200, 

202,128,0,128,200,202,8166 

1730 DATA 128,0,0,128,0,0,0,128,0,0,12 

8,200,202,128,0,128,3668 

1748 DATA 0,0,0,0,128,0,0,0,0,0,0,128, 

0,0,0,0,3916 

1750 DATA 128,82,82,128,0,128,128,128, 

200,0,0,128,0,0,0,128,872 

1760 DATA 0,0,128,82,82,128,0,128,0,0, 

0,0,128,0,0,0,6338 

1770 DATA 0,0,0,128,74,0,0,0,128,0,0,1 

28,0,128,0,0,7132 

1780 DATA 0,0,0,128,0,0,0,128,0,0,128, 

0,0,128,0,128,8564 

1790 DATA 74,0,0,0,200,0,0,0,0,0,0,202 

,128,128,200,0,1744 

1800 DATA 200,0,0,202,0,200,0,0,0,0,20 

2,128,200,0,0,128,2414 

1810 DATA 0,0,200,0,0,202,0,202,128,12 

8,200,0,79,0,0,0,897 

1820 DATA 231,225,237,229,0,239,230,0, 

232,233,231,232,0,230,233,238,7438 

1830 DATA 225,238,227,229,8,0,0,112,11 

4,111,103,114,97,109,109,101,5699 

1840 DATA 100,0,98,121,98,0,0,0,0,0,0, 

162, 178, 185, 161, 174, 5215 

1850 DATA 0,179,163,168,161,176,176,16 

5,172,0,0,0,0,0,0,0,9330 

1860 DATA 0,0,0,0,0,0,161,174,164,0,0, 
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0,0,8,6,8,5855 

1878 DATA 8,8,8,8,8,8,8,162,161,178,17 

8,185,8,171,175,172,8344 

1888 DATA 162,165,8,8,8,8,8,239,248,24 

4,233,239,238,8,0,8,7489 

1898 DATA 182,97,115,116,8,183,97,189, 

181,8,8,51,37,44,37,35,8897 

I960 DATA 52,0,0,0,146,0,176,172,161,1 

85,165,178,179,8,8,8,4867 

1910 DATA 0,35,47,48,57,58,41,39,48,52 

,0,17,25,24,24,0,5682 

1920 DATA 0,0,0,0,0,8,98,98,187,8,181, 

118,116,181,114,112,3288 

1938 DATA 114,185,115,161,115,0,8,8,8, 

66,175,176,188,169,175,174,8398 

1948 DATA 86,58,47,44,44,6,36,41,35,37 

,8,6,8,66,179,165,177 

1958 DATA 172,165,163,188,86,51,52,47, 

48,0,36,41,35,37,8,8,7438 

1968 DATA 8,0,51,116,111,99,187,6,45,9 

7,114,187,101,116,8,36,1901 

1970 DATA 105,118,185,100,101,110,100, 

115,0,112,97,121,0,121,111,117,4681 

1980 DATA 0,4,17,18,39,6,6,6,8,6,41,58 

,51,8,52,97,6352 

1990 DATA 120,0,33,117,100,105,116,26, 

0,108,111,115,101,0,17,18,364 

2000 DATA 5,0,111,182,8,121,111,117,11 

4,8,99,97,115,184,6,6,1415 

2018 DATA 8,6,8,8,54,97,99,97,116,165, 

111,116,8,116,165,189,3989 

2826 DATA 161,8,97,116,8,116,184,181,8 

,48,111,163,8,46,185,168,1828 

2638 DATA 116,111,118,8,8,8,8,6,162,97 

,115,116,115,188,111,119,3819 

2040 DATA 66,82,79,75,69,8,125,32,32,8 

8,114,111,112,58,155,32,3662 

2858 DATA 88,114,165,99,181,58,32,32,3 

2,32,32,32,32,32,32,82,8482 

2860 DATA 101,115,97,108,181,58,155,32 

,76,181,118,181,168,58,32,32,2726 

2878 DATA 32,32,32,32,32,32,32,68,111, 

117,98,168,181,58,155,32,3815 

2688 DATA 32,32,78,181,101,58,32,32,32 

,32,32,32,32,32,32,32,7323 

2898 DATA 79,119,116,181,114,58,6,89,1 

81,115,8,78,111,8,78,111,2155 

2166 DATA 118,181,6,66,18,2,212,8,148, 

6,8,66,6,196,156,18,1568 

2110 DATA 15,6,32,184,97,115,32,119,11 

1,116,33,155,88,114,181,115,5361 

2128 DATA 115,32,97,32,107,101,121,32, 

116,111,32,112,168,97,121,32,3901 

2130 DATA 97,103,97,105,110,46,0,32,10 

5,115,32,66,114,111,107,101,3722 

2140 DATA 33,155,0,32,112,114,111,112, 

101,114,116,121,32,91,89,47,4882 

2158 DATA 78,93,63,8,155,155,73,189,11 

2,114,111,118,101,32,97,8,3692 

2168 DATA 155,155,83,181,188,108,32,97 

,8,155,155,66,117,121,32,116,5864 

2178 DATA 184,165,115,0,155,155,83,88, 

67,61,110,161,120,116,44,32,3746 

2188 DATA 82,69,84,61,99,184,111,111,1 

15,181,8,44,32,69,83,67,1952 

2198 DATA 61,161,126,105,116,0,155,155 

,84,114,97,116,115,97,99,116,6615 

2266 DATA 185,111,116,32,112,114,111,9 

9,181,115,115,161,166,46,6,155,4758 

2210 DATA 155,73,110,115,117,102,102,1 

05,99,105,101,110,116,32,102,117,5782 

2228 DATA 118,188,115,46,8,155,155,68, 

111,117,98,188,181,32,79,112,4899 

2238 DATA 116,105,111,110,46,0,155,155 

,65,116,32,77,97,120,105,109,5165 

2240 DATA 117,109,32,76,101,118,181,18 

8,8,155,155,76,181,161,32,88,4341 

2250 DATA 97,121,109,101,110,116,32,82 
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,161,113,117,185,114,181,166,46,5164 

2266 DATA 6,155,155,65,189,111,117,118 

,116,32,111,119,181,168,32,6,3411 

2270 DATA 169,62,141,47,2,169,1,141,11 

1,2,162,3,169,0,133,159,4906 

2280 DATA 157,8,268,282,16,258,169,3,1 

41,29,268,169,128,141,7,212,9682 

2298 DATA 162,3,169,128,149,145,189,11 

1,57,149,141,262,16,244,162,3,9351 

2388 DATA 189,256,61,157,192,2,169,6,1 

49,149,282,16,243,169,8,133,8853 

2318 DATA 153,169,62,141,47,2,169,1,14 

1,111,2,96,96,184,112,126,4846 

2328 DATA 173,63,53,246,3,32,238,58,17 

3,64,53,248,3,32,4,59,3226 

2338 DATA 173,65,53,249,3,32,26,59,173 

,66,53,248,3,32,48,59,2444 

2348 DATA 96,216,162,255,154,32,7,75,3 

2,132,66,32,41,72,32,35,1218 

2358 DATA 57,32,211,58,32,286,76,32,22 

7,66,32,78,62,169,16,141,4945 

2366 DATA 48,2,169,53,141,49,2,169,48, 

141,244,2,32,186,57,162,5389 

2378 DATA 4,189,245,61,157,196,2,282,1 

6,247,169,0,133,159,133,173,513 

2388 DATA 169,142,141,8,2,169,59,141,1 

,2,32,115,57,166,153,189,5966 

2396 DATA 63,53,288,3,76,280,58,160,0, 

189,120,52,133,130,169,40,7019 

2400 DATA 133,131,177,130,240,3,200,20 

8,249,132,174,169,28,56,229,174,2894 

2416 DATA 74,176,166,19,169,6,153,99,5 

3,136,16,258,268,169,59,157,9464 

2428 DATA 95,53,169,61,157,97,53,165,1 

53,24,185,17,157,96,53,177,6418 

2430 DATA 138,248,16,32,78,71,157,99,5 

3,232,200,208,242,169,53,157,2177 

2440 DATA 100,53,169,48,157,181,53,173 

,31,288,201,3,208,249,32,205,1047 

2450 DATA 59,165,153,10,170,189,126,59 

,141,99,58,189,127,59,141,186,8633 

2460 DATA 58,189,134,59,141,129,58,189 

,135,59,141,138,58,198,157,32,8246 

2478 DATA 76,59,166,153,246,149,181,14 

9,281,36,208,4,169,8,149,149,9672 

2480 DATA 181,149,168,185,173,61,149,1 

41,185,289,61,149,145,32,238,58,650 

2490 DATA 32,146,60,166,153,181,149,20 

8,12,162,0,32,168,60,169,12,6079 

2500 DATA 164,153,32,155,70,32,86,60,3 

2,155,62,165,157,208,198,166,269 

2518 DATA 153,181,149,168,3,217,116,52 

,248,12,136,16,248,32,97,66,6712 

2526 DATA 32,211,58,32,256,72,32,227,6 

0,166,153,181,149,240,3,32,8987 

2530 DATA 238,60,32,76,62,230,153,165, 

153,41,3,133,153,76,176,57,7366 

2540 DATA 162,0,138,157,0,132,157,0,13 

3,157,0,134,157,0,135,232,7788 

2558 DATA 208,241,162,3,157,0,208,136, 

16,250,96,162,0,164,145,189,206 

2560 DATA 121,61,153,0,132,200,232,224 

,13,208,244,165,141,141,0,208,2534 

2570 DATA 96,162,0,164,146,189,134,61, 

153,0,133,200,232,224,13,288,1851 

2588 DATA 244,165,142,141,1,288,96,162 

,0,164,147,189,147,61,153,8,7950 

2598 DATA 134,200,232,224,13,208,244,1 

65,143,141,2,208,96,162,0,164,412 

2600 DATA 148,189,168,61,153,8,135,266 

,232,224,13,268,244,165,144,141,4825 

2616 DATA 3,268,96,164,145,169,0,162,1 

2,153,8,132,208,202,16,249,9882 

2626 DATA 96,164,146,169,6,162,12,153, 

0,133,286,282,16,249,96,164,158 

2636 DATA 147,169,8,162,12,153,0,134,2 

80,202,16,249,96,164,148,169,1265 

2640 DATA 0,162,12,153,0,135,208,202,1 
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6,243,96,78,59,84,59,98,6364 

2658 DATA 59,112,59,238,58,4,59,26,59, 

48,59,72,165,159,288,27,5444 

2668 DATA 169,36,141,9,212,141,18,212, 

169,138,141,24,288,169,218,141,2288 

2678 DATA 23,288,169,238,141,25,288,23 

8,159,184,64,281,1,288,17,169,158 

2688 DATA 162,141,18,212,141,24,288,16 

9,8,141,26,288,238,159,104,64,9651 

2698 DATA 169,162,141,10,212,141,26,28 

8,104,64,169,8,133,157,32,55,6129 

27O0 DATA 60,162,0,160,8,177,155,157,7 

7,113,232,200,192,3,208,245,3488 

2710 DATA 162,0,177,155,157,117,113,23 

2,200,192,6,208,245,162,0,177,2724 

2728 DATA 155,157,157,113,232,200,192, 

9,208,245,32,55,60,160,0,162,8834 

2738 DATA 5,177,155,157,77,113,232,200 

,192,3,208,245,162,7,177,155,2794 

2748 DATA 157,115,113,232,208,192,6,20 

8,245,162,5,177,155,157,157,113,2632 

2750 DATA 232,288,192,9,208,245,141,31 

,288,32,86,68,173,31,288,201,616 

2760 DATA 5,208,151,96,173,18,210,41,7 

,201,6,176,247,170,24,101,8559 

2770 DATA 157,133,157,230,157,138,10,1 

70,189,55,61,133,155,189,56,61,8622 

2780 DATA 133,156,96,169,0,133,20,165, 

20,201,6,144,250,96,162,255,1535 

2790 DATA 142,252,2,173,252,2,201,255, 

208,244,169,0,133,20,133,19,9332 

2800 DATA 173,252,2,201,255,208,6,165, 

19,201,2,144,243,142,252,2,1062 

2810 DATA 96,162,7,169,0,157,0,210,202 

,16,250,141,8,210,96,169,157 

2820 DATA 133,141,0,210,169,168,141,1, 

218,32,86,60,169,0,141,0,5111 

2838 DATA 218,141,1,210,96,189,224,60, 

72,133,158,32,227,60,238,46,24 

2840 DATA 53,208,3,238,47,53,198,158,3 

2,25,72,165,158,208,239,32,9846 

2850 DATA 97,60,104,133,158,206,46,53, 

32,25,72,173,46,53,201,255,8524 

2860 DATA 208,3,206,47,53,198,158,208, 

236,32,227,60,96,40,80,128,8692 

2870 DATA 169,11,141,46,53,169,55,141, 

47,53,96,165,153,170,10,168,7656 

2880 DATA 181,149,162,1,201,17,208,47, 

185,183,48,133,155,185,184,48,540 

2890 DATA 133,156,70,156,102,155,70,15 

6,102,155,70,156,102,155,185,183,1656 

2900 DATA 48,56,229,155,153,183,48,185 

,184,48,229,156,153,184,48,32,370 

2918 DATA 200,70,162,1,76,52,61,232,20 

1,11,240,5,201,26,240,1,7927 

2920 DATA 96,76,168,60,67,61,76,61,85, 

61,94,61,183,61,112,61,3623 

2930 DATA 49,49,49,49,50,49,49,49,49,5 

0,49,49,49,49,49,49,9609 

2940 DATA 49,50,50,49,49,49,50,49,49,4 

9,50,50,49,50,49,49,9653 

2950 DATA 49, 50, 49,50, 50, 49, 50, 49, 50, 4 

9,50,49,50,50,49,50,9695 

2960 DATA 50,49,50,50,49,50,96,224,96, 

96,96,240,0,60,60,60,4927 

2970 DATA 60,60,60,56,108,12,24,48,124 

,8,60,60,60,60,60,60,694 

2980 DATA 126,12,24,12,102,60,0,60,60, 

60,60,60,60,27,27,31,9179 

2990 DATA 31,3,3,0,60,60,60,60,60,60,1 

52,152,144,136,128,128,6848 

3000 DATA 112,104,96,88,80,80,72,64,64 

,64,64,64,72,80,88,96,3456 

3010 DATA 104,112,120,128,136,136,136, 

144,152,160,168,168,168,168,120,136,30 

42 

3020 DATA 136,136,136,136,136,136,136, 

136,136,120,120,120,104,88,72,56,7660 
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3030 DATA 56,56,56,56,56,56,56,56,56,7 

2,88,88,88,88,88,104,3654 

3840 DATA 120,120,78,168,244,224,130,2 

,66,122,198,250,74,72,70,68,8864 

3850 DATA 66,64,62,60,58,56,232,230,22 

8,148,68,244,164,166,168,178,4664 

3060 DATA 172,174,176,178,180,182,6,86 

,88,90,92,94,174,254,252,113,2780 

307O DATA 114,114,114,114,114,114,114, 

114,114,114,113,113,113,113,113,112,84 

77 

3088 DATA 112,112,112,112,112,112,112, 

112,112,112,113,113,113,113,113,113,83 

93 

309O DATA 113,113,113,162,35,189,254,6 

1, 133, 155, 189, 34, 62, 133, 156, 189, 1257 

310O DATA 147,48,48,13,208,15,160,0,16 

9,57,145,155,200,169,58,145,9491 

3118 DATA 155,202,16,225,96,201,1,208, 

13,169,45,160,0,145,155,200,9751 

3120 DATA 169,46,145,155,208,235,201,2 

,208,13,168,0,169,43,145,155,9525 

3130 DATA 200,169,44,145,155,208,218,2 

81,3,208,214,160,0,169,41,145,1219 

3140 DATA 155,200,169,42,145,155,208,2 

01,32,203,62,169,11,141,46,53,7772 

3150 DATA 169,49,141,47,53,166,153,181 

, 149, 10, 170, 189, 235, 64, 133, 155, 1813 

3160 DATA 189,236,64,133,156,160,0,162 

,10,177,155,240,10,32,70,71,6790 

3170 DATA 157,11,49,200,232,208,242,96 

,162,39,169,0,157,11,49,202,9035 

3180 DATA 16,258,96,66,97,114,45,66,45 

,81,32,82,97,110,99,104,4761 

3190 DATA 0,82,185,118,183,97,100,105, 

110,103,32,80,104,111,110,101,6250 

3200 DATA 0,67,114,111,115,115,101,121 

,101,32,67,97,98,188,101,32,5003 

3210 DATA 84,86,0,79,188,100,101,32,89 

,111,114,107,101,32,84,105,5035 

3220 DATA 109,101,115,0,83,112,117,100 

,115,32,80,111,116,97,116,111,6531 

3230 DATA 32, 78, 97, 114, 109, O, 66, 108, 97 

,99,107,32,71,111,108,100,5141 

3240 DATA 32,79,105,108,0,82,181,120,3 

2,65,117,116,111,32,67,111,4625 

3250 DATA 114,112,46,0,84,104,114,101, 

100,98,97,114,101,32,67,108,5185 

3268 DATA 111,116,104,105,110,103,0,75 

,111,108,98,101,39,115,32,67,4141 

3270 DATA 104,101,101,115,101,0,68,97, 

185,115,121,39,115,32,68,97,4505 

3280 DATA 105,114,121,0,66,108,97,99,1 

07,32,74,97,99,107,39,115,4896 

3290 DATA 32,67,97,115,105,110,111,0,6 

8,101,97,116,104,32,86,97,4892 

3300 DATA 108,108,101,121,32,83,112,97 

,0,65,100,97,109,115,32,65,4090 

3310 DATA 112,112,108,101,32,79,114,99 

,104,97,114,100,0,83,111,117,5657 

3320 DATA 114,32,71,114,97,112,101,115 

,32,86,105,110,101,121,97,114,6860 

3330 DATA 100,0,83,104,111,114,116,32, 

67,105,114,99,117,105,116,32,5740 

3340 DATA 80,32,38,32,76,0,72,101,97,1 

18,121,32,87,97,116,101,5031 

3350 DATA 114,32,67,111,109,112,97,110 

,121,0,83,116,121,116,99,184,6689 

3368 DATA 39,115,32,67,1O8,1O5,110,105 

,99,0,83,99,104,97,112,112,5947 

3370 DATA 101,108,39,115,32,83,99,97,1 

08,112,101,108,115,8,67,114,5214 

3380 DATA 111,115,115,116,114,97,120,3 

2,82,97,185,108,119,97,121,0,5657 

3390 DATA 68,114,185,112,32,68,114,121 

,32,67,108,101,97,110,101,114,6281 

3400 DATA 115,0,74,101,116,115,116,114 

,101,97,109,32,65,105,114,108,6350 

continued on page 21 
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A nuclear-powered satellite just came 
down at the North Pole. Now it's sit- 
ting there, deep in ice, threatening to 
melt down all the ice and snow. Your 
job is to destroy it before disaster 
strikes. 

You'll be outfitted with a special high- 
powered flame thrower to burn through the 
ice, but your fuel pack is good only for about 
fifteen burns. However, due to a lucky twist 
of fate, a supply ship went down in the same 
area as the satellite. As a result, you'll find 
many cans of fuel buried in the ice. Unfor- 
tunately, the ship also carried Thermite 
bombs— so be careful. Touch one of these lit- 
tle babies, and you'll be vaporized. 

To activate your flame thrower, press the 
fire button and move the joystick in the direc- 
tion you want to fire. If you should run out 
of fuel, and no fuel cans are in sight, you can 
dig through the ice by hand. To do this, sim- 
ply press against the ice until it disappears. 
This method is slow and can be dangerous 
if you should run into a Thermite charge. 
To help you locate the satellite, you'll be 
given a nuclear tracker, which will point in 
the general direction of the satellite. To tell 
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when the satellite is about to melt down, 
watch the yellow bar marked with the word 
"RADIATION." As the game progresses, the 
yellow bar will creep across the screen. If it 
reaches the screen's edge, you will hear a 
warning tone, and the last location of the bar 
will beep red. This means that the satellite 
has reached critical mass. If it's not destroyed 
within a few moments, it will melt down, and 
the game will be over. 

The satellite has a few weapons of its own. 
To guard the area, it has created an energy 
zombie, which will track you flawlessly 
through the ice. Because it's made of ener- 
gy, the zombie is capable of burning through 
the ice when necessary, although this great- 
ly reduces its speed. Touching the zombie 
means instant death. The only one way to hurt 
this creature is to lead it to a Thermite charge. 
If the zombie touches the charge, its energy 
will dissipate, and the creature will be sent 
back to its starting position. 

If you get to close to the satellite, it will 
fire an energy ball. If you are hit, you die. 
At Level 1, the energy balls will only go in 
your general direction. But at Level 2 and 
above, they will actually track you until they 



dissipate. The only way to destroy the satel- 
lite is to touch it when its energy is deplet- 
ed. You can tell how much energy the satellite 
has by its color. When its color is red, the 
satellite is fully charged. If you touch it in 
this state, it will teleport away to a random 
location. When the satellite's color is yellow, 
its energy is depleted; touching the satellite 
in this state will destroy it. 

Nuclear Mountain has five levels of 
difficulty. As the game progress to higher lev- 
els, the zombie's speed will increase, the time 
you have until the meltdown will decrease, 
and more Thermite charges and less fuel cans 
will be buried in the ice. 

You begin the game with six men. When 
you reach the fourth level, you gain one ex- 
tra man. Your score is displayed at the bot- 
tom of the screen. Fuel cans are worth 20 
points, destroying the zombie by way of a 
Thermite charge is worth 100 points, and de- 
stroying the satellite is worth 500 points. 

Good luck and happy burning. 

Brad Timmins is a freelance programmer 
living in Draper, Utah. He has been program- 
ming Ataris for five years. 
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HO 1 REM XXXXXXXXXXXXXXXXXXXXXXMXXXXXXX 
BL 2 REM * NUCLEAR MOUNTAIN K 
ZS 3 REM * BY BRAD TIMMIN5 * 
ZD 4 REM * * 

BT 5 REM * COPYRIGHT 1989 * 
RX 6 REM * BY ANALOG COMPUTING * 
WU 7 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
QZ 18 G05UB 2468 

EI 28 P8KE 1O6,PEEK(106)-5:GRAPHIC5 1+16 
VM 30 DIM MAPS (2475), BACKS (2475), SNOWS (55 

) , FONTS (341 , DR (14) , DZ (14) , FUL$ (15) , G (3 

,3) 
ZY 40 DR(14)=132:DR(13)=134:DR(7)=129:DR( 

11) =131 
BN 58 MY=6:MX=20:GU=24:0F=1:ME=6:TI=12:FL 

=19 : 81=8 : 82=TI : 83=18 : LV=1 : 84=28 
BZ 68 DZ(14)=133:DZ(13)=133:DZ(7)=138:DZ( 

11) =130 : Ml=28 ! QC=7 : 85=55 
LN 70 SCR=PEEK(88)+256*PEEK(89) :5TR=(PEEK 

(106) +1)*256 : ICE=ADR (MAPS) : RD=9 : M=55 
FS 80 SHAD=ADR (BACKS) : 07=2: 101=07 !FU=70:B 

M=10 
KF 90 5ETCOL0R 0, 0, 12 : 5ETC0L0R 2,3,6:SETC 

OLOR 4,8,0:SETC0L0R 1, 1, 12 : SETCOLOR 3, 

12,6 
MA 100 FULS=CHRS(167) : FULS (15) =FUL$ : FULS ( 

2)=FULS 
SR 118 GBSUB 2488 
OC 120 FOR T=l TO 34 : READ ML : FONTS (T, T) =C 

HRS(ML) :NEXT T 
BO 130 Q=USR (ADR (FONTS), STR, 57344) 
DZ 140 FOR A=1536 TO 1594:READ B:POKE A,B 

:NEXT A 
MH 150 FOR T=0 TO 119 : READ CR:POKE 8+STR+ 

T CR ! NEXT T 
AR 168 F8R T=8 T8 31 : READ CR:P8KE 216+STR 

+T CR ■ NEXT T 
KU 170 FOR T=0 TO 39: READ CRiPOKE 472+5TR 

+T CR ■ NEXT T 
ON 180 POKE 756,STR/256 
VI 190 G05UB 1540 

IN 200 REM ML CHARACTER SET RELOCATER 
H5 210 DATA 104,104,133,204,104,133,203,1 

04,133,206,104,133,205 



XD 220 DATA 162,0,160,0,177,205,145,203,2 

00,208,249,238,204,230 
QL 230 DATA 206,232,224,4,208,248,96 
MZ 248 REM ML WINDOW R8UTINE 
YP 258 DATA 184,184,133,204,104,133,203,1 

04,133,206,104,133,205,162,0,160,0,177 

,203,145,205 
HP 260 DATA 200,192,11,208,247,232,24,165 

,203,105,55,133,203,165,204,105,0,133, 

204,24,165 
DN 270 DATA 205, 105, 20, 133, 205, 165, 206,10 

5,0,133,206,224,11,208,214,96,0 
DA 288 REM CHARACTER DATA 
WZ 298 DATA 8,21,63,127,255,127,63,21 
AJ 300 DATA 0,85,255,255,255,255,255,85 
QW 318 DATA 0,84,252,254,255,254,252,84 
UH 328 DATA 254,124,254,124,254,124,56,16 
KT 338 DATA 254,124,254,124,254,124,254,1 

24 
SP 348 DATA 16,56,254,124,254,124,254,124 
JJ 358 DATA 255,255,255,255,255,255,255,2 

55 
CI 368 DATA 24,24,68,126,219,68,36,36 
VR 378 DATA 24,68,98,126,66,68,36,182 
RD 388 DATA 34,145,154,124,60,98,137,69 
AY 398 DATA 0,75,190,162,110,38,46,62 
ZQ 400 DATA 60,126,255,255,255,255,126,60 
LH 410 DATA 0,0,24,126,60,24,0,0 
IK 420 DATA 85,186,87,234,85,186,87,178 
QK 430 DATA 36,90,189,189,189,189,98,36 
OB 440 DATA 15,3,5,9,16,32,64,128 
PJ 458 DATA 248,192,168,144,8,4,2,1 
JF 460 DATA 128,64,32,16,9,5,3,15 
WU 470 DATA 1,2,4,8,144,160,192,240 
EQ 488 DATA 16,56,84,16,16,16,16,16 
IT 498 DATA 16,16,16,16,16,84,56,16 
CF 588 DATA 0,0,32,64,255,64,32,0 
LK 510 DATA 0,0,4,2,255,2,4,0 
JF 520 DATA 255,255,255,255,255,255,255,2 

55 
YU 530 DATA 28,91,27,93,12,94,38,92,29 
00 548 F8R T=l TO 3 
MY 558 FOR 1=1 TO 3: READ CH : G (I, T) =CH : NEX 

T I ! NEXT T;WX=+1 
LU 560 FOR T=13 TO 18: POKE SCR+T+28*0, 8 : N 

EXT T 
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OC 576 POSITION 8,14:? 86; " radi ation : " 
RZ 586 POSITION 8,18:? tt6 ! " f3Trai : ": FULS 
UN 590 POSITION 8,8:? it6; ,l A\0\\!NWW , 
WO 600 FOR T=l TO 11: POSITION 8,T:? tt6;"fl 
fl":NEXT TiPOSITION 0,12:? » 

gj'VWWWWWW" 

KH 610 POSITION 16,8:? tt6;CHR$£12) 

ED 620 QX=6:QY=6:U=PEEK£ICE+MX+55*MYJ 

IX 630 POSITION 6,22!? tt6;"SC0RE ";SC 

NU 640 POKE 559, AN 

TA 650 POSITION 13,2:? tt6;"LEUEL ";LU 

GL 660 POKE ICE+QX+55*0Y,8 

YM 670 Q-USR £1536, ADR CMAP$) +QH-5+55* CQY-5 

),SCR+1+20K1J 
HS 688 POSITION 13,6:? tt6;"TRACKER" 
RI 698 GOTO 958 
CG 780 POSITION 12,22:? »6;SC 
KP 718 REM MAIN LOOP 
PE 728 J=STICKt8J :F=5TRIG£8J :TI=TI-l:GU=G 

U-l ! M=M-i ! IQ1=IQ1-1 
XS 738 IF M=0 THEN GOSUB 1420 
NF 748 IF TI=8 THEN GOSUB 1318 
GL 758 IF GU=0 AND 0F=1 THEN GOSUB 1928 
UM 768 IF 1(1 = 1 AND IQ1=8 THEN GOSUB 1848 
OJ 778 IF F=0 AND FL>4 THEN 1180 
OR 788 IF J=15 THEN 728 
DZ 790 IF J=ll OR J=7 THEN RX=8 : RY=J : GOTO 

828 
LJ 888 IF J=14 OR J=13 THEN RY=13 . 5 : RX=J : 

GOTO 828 
OT 818 GOTO 728 

JB 828 BX=QX+SGN£RX-J) : BY=QY+SGN £RY-JJ 
BD 838 IF BX>49 OR BX<5 OR BY>39 OR BY<6 

THEN 728 
WS 848 IF PEEK£ICE+BX+55*BY)=0 THEN 938 
ZN 858 P=PEEK£ICE+BX+55*BYJ 
DG 868 IF P=63 THEN 1866 
UC 878 IF P=77 THEN DES=1: GOSUB 1658 
CM 888 IF P=138 THEN 1768 
EY 898 IF P=74 THEN 2158 
SY 900 IF P=139 THEN 1816 
T« 910 IF P=137 THEN 2828 
ON 928 GOTO 728 
NA 938 POKE ICE+QX+55*QY, 8 : OX=BX : QY=BY : DL 

=5 
PU 948 SOUND 8, 168, IB, 15 : POKE ICE+QX+55*Q 

Y,8 
GP 950 POSITION 16+WX,8+WY:? tt6;CHR$£321 
RS 960 WX=SGN£IX-QX) :WY=5GN£IY-QYJ 
EK 970 POSITION 16+WX,8+WY:? »6;CHR$£G£WX 

+2,WY+2JJ 
UU 988 Q=USR £1536, ADR £MAP$J+QX-5+55*£QY-5 

>,SCR+i+20*i> ! SOUND 0,0,0,8 
PK 998 GOTO 728 
AF 1888 REM REFUEL ROUTINE 
SJ 1O10 POKE ICE+QX+55*QY,0:POKE SHAD+BX+ 

55*BY, 8 : QX=BX : QY=BY : POKE ICE+QX+55*QY , 

8 
WD 1020 Q=U5R £1536, ADR £MAP$)+QX-5+55*£QY- 

5) , SCR+l + 20*iJ : SC=5C+28 ! POKE SHAD+QX+5 

5*0 Y, 8 
BD 1030 FOR T=255 TO 1 STEP -18: SOUND 3,T 

,14,15:NEXT TiPOSITION 5,18:? tt6;FUL$! 

FL=19 
WT 1048 SOUND 3,8,0,O:GOTO 708 
HC 1050 REM DIG THROUGH ICE ROUTINE 
SS 1060 DL=DL-1 
KR 1078 IF DL=8 THEN POKE ICE+BX+55*BY, PE 

EK£SHAD + BX + 55*BY) .'GOTO 988 
RC 1080 GOTO 720 

JX 1090 REM FLAME THROWER ROUTINE 
UN 11O0 IF J=ll OR J=7 THEN RX = 8 i RY=J I GOT 

1130 
RQ 1110 IF J=14 OR J=13 THEN RY=13.5iRX=J 

iGOTO 1138 
QM 1128 GOTO 728 
UE 1138 BX=QX+5GN£RX-J) :BY=QY+SGN£RY-JJ 



HS 1140 LX=BX:LY=BY 

UX 1158 FOR T=l TO 4J50UND 1,128, 4, 11+T 

ZO 1168 IF LX>49 AND J=7 OR LX<6 AND J=ll 

THEN 1248 
AD 1170 IF LY>39 AND J=13 OR LY<6 AND J=l 

4 THEN 1248 
XG 1188 IF T=l THEN POKE ICE+LX+55*LY, DR £ 

J) iGOTO 1280 
CA 1198 POKE ICE+LX+55*LY,DZ£J> 
ZD 1288 LX=LX+SGN£RX-J) :LY=LY+SGN£RY-J) 
JO 1218 Z=USR£1536,ADR£MAP$)+QX-5+55*£QY- 

5J,SCR+1+28*1J 
JQ 1228 NEXT T 

AD 1238 REM ERASE FLAME THROWER 
HU 1248 LX=BX:LY=BY 
UD 1258 FOR 0=1 TO T-1:S0UND 1,128, 4, 11+T 

-Q 
HU 1260 POKE ICE+LX+55*LY,PEEK£SHAD+LX+55 

*LYJ 
KI 1278 Z=U5R£1536,ADR£MfiP$)+QX-5+55*£0Y- 

5J,SCR+1+28*1J 
AB 1288 LX=LX+SGN£RX-J) :LY=LY+SGN£RY-J) 
AU 1298 NEXT Q : POSITION FL,18:? «6;CHR$£8 

J :FL=FL-l:SOUND 1,B,8,8:G0T0 728 
GC 1388 REM MONSTER MOUE ROUTINE 
NY 1318 GX=SGN£QX-MX) : GY=SGN £QY-MYJ : PzPEE 

K £ICE+MX + GX+55» £MY+GYJ J 
YK 1328 SOUND 1,98,18,15 
TJ 1338 IF P=63 THEN TI=02:G0T0 1378 
GU 1348 IF P=77 THEN DE5=2 ! SC=SC+100 : POSI 

TION 12,22:? «6;SC:S0UND 1,0,O,0:GOTO 

1658 
DU 1358 IF P=8 THEN 2838 
ZP 1368 TI=01 
WE 1378 POKE ICE+MX+55»MY,U:MX=MX+GX:MY=M 

Y+GY:U=PEEK£ICE+MX+55*MY) : IF U=63 OR U 

=143 THEN U=8 
YK 1388 POKE ICE+MX+55*MY, 137 
10 1398 Q=U5R£1536,ADR£MAP$J+QX-5+55*£QY- 

5J,SCR+1+28*1J 
XU 1488 SOUND 1, 0, 8, 8 : RETURN 
UC 1418 REM MELT DOWN ROUTINE 
KS 1420 IF RD=19 AND M1>1 THEN 1460 
EA 1438 IF RD=19 AND Ml=l THEN 1588 
PC 1448 RD=RD+l:POSITION RD,14:? «6;CHR$f 

7J :M=58:M1=M1-1 
AW 1458 RETURN 
AI 1468 IF QC=167 THEN QC=7 : QU=8 : GOTO 148 

8 
KH 1478 IF QC=7 THEN QC=167:QU=15 
DU 1488 POSITION 19,14:? »6; CHRS £0C) : SOUN 

D 2, 288, 14, QU 
UG 1498 Ml=Ml-8. 2 :M=4: RETURN 
ZZ 1588 FOR T=7 TO 8 STEP -1 
IS 1518 FOR 1=1 TO 15:NEXT I:POKE 584+STR 

+T,8:S0UND 2,30»T,8,15:NEXT TiSOUND 2, 

0,8,8 
YU 1528 POSITION 2,5:? tt6;"Melt dOWn":F0R 
T=l TO 20O:NEXT TiPOSITION 2,5:? »6; M 
"iGOTO 2290 
CP 1530 REM RANDOM PLACEMENT ROUTINE 
JB 1540 RX=INT£RNDfl)*44J+5:RY=INT£RND£l) 

*24>+15 
XJ 1550 POKE SHAD+RX+55*RY,138!IX=RX:IY=R 

Y 
UI 1568 FOR T=l TO FU 
GP 1578 RX=INT£RND£1)*451+5:RY=INT£RND£1) 

*33)+7 
GL 1588 IF PEEK£SHAD+RX+55»RYJ<>8 THEN 15 

78 
QL 1590 POKE SHAD+RX+55*RY,139:NEXT T 
MO 1688 FOR T=l TO BM 
FZ 1610 RX=INT£RND£1)*45)+5:RY=INT£RND£1) 

*33)+7 
YH 1620 IF PEEK£SHAD+RX+55*RY1<>0 THEN 16 

10 
NZ 1630 POKE SHAD+RX+55*RY,77!NEXT T : RETU 



AUGUST A.IM.A.L.O.B. Computing 



Nuclear 
Mountain 



RN 



XL 1649 REM EXPLOSION ROUTINE 

BU 1658 IF DES=i THEN POKE ICE+QX+55*QY, 

: QX=BX : QY=BY : CX = QX : CY=QY 
AA 1668 IF DE5=2 THEN POKE ICE+MX+55*MY, 8 

: CX=MX+GX : CY=MY+GY : MX=20 : MY=7 : TI=02 : U= 

PEEK CICE+MX+55*MY) 
NT 1678 IF DES=3 THEN POKE ICE+UX+55*VY, 8 

! CX=UX+AX : CY=VY+AY : POKE ICE+IX+55*IY, 1 

38 : GU=03 : IQ=8 : OF=I : IQ1=07 
QT 1688 POKE ICE+CX+55*CY, 14 : Q=USR £1536, A 

DR £MAP$) +QX-5+55*£QY-5) , SCR+1+20*1) 
JH 1698 FOR T=i TO 38:S0UND 3, 288, 8, 15 : NE 

XT T 
PL 1788 POKE ICE+CX+55*CY,0:P0KE 5HAD+CX+ 

55*CY,0:S0UND 3,0,8,8 
QD 1718 IF DE5=3 OR DES=1 OR DES=4 THEN P 

OSITION 5,18:? tt6;FUL$:FL=19:P0KE SCR+ 

12+ME,0:ME=ME-1 
R5 1728 IF ME<1 AND DES<>2 THEN PBP :GOTO 

2298 
KC 1738 POKE ICE+QX+55*QY, 8 
ZZ 1748 Q=USR £1536, ADR £MAP$)+QX-5+55»£QY- 

5) , SCR+l+2B*i) : RETURN 
UN 1758 REM RANDOMLY TELEPORT REACTER 
HJ 1768 RX=INT£RND£8)*44)+5:RY=INT£RND£8) 

*24)+15 
RG 1778 POKE ICE+IX+55*IY, 8 : POKE SHAD+IX+ 

55*IY, 8 : IX=RX : IY=RY 
ML 1788 POKE SHAD+IX+55*IY,138 
KY 1798 IF PEEK£ICE+IX+55*IY)=63 THEN 181 

8 
TI 1888 POKE ICE+IX+55*IY,138 
LN 1818 FOR T=l TO 255 STEP +5:S0UND 3,T, 

14,T:NEXT TlSOUND 3,8,8,8 
GN 1828 Q=USR £1536, ADR £MAPS) +QX-5+55*£QY- 

5),SCR+1+20*1) iGOTO 678 
YC 1838 REM FIRE SATELLITE GUN ROUTINE 
HE 1848 POKE ICE+VX+55*VY, 8 : POKE SHAD+VX+ 

55*UY,0iOF=8 
RE 1858 IF C0=4 THEN POKE ICE+IX+55*IY, 13 

8:GU=03:IQ=8:0F=l:G0T0 1988 
AM 1868 IF LU>=2 THEN AX=SGN CQX-UXJ : AY=SG 

N£QY-VY) 
DT 1878 IF PEEK£ICE+VX+AX+55*£VY+AY))=8 T 

HEN DES=3:G0T0 1658 
QQ 1888 VX=VX+AX:VY=VY+AY I 101=07 
WZ 1898 POKE ICE+UX+55*UY,143iC0=C0+l 
ZR 1980 0=USR£1536,ADR£MAPS)+0X-5+55*£0Y- 

5) , SCR+1+28*1 ) : RETURN 
SH 1918 REM AIM SATELLITE GUN 
Id 1928 VX=IXlVY=IY:AX=5GN£QX-IX) :AY=SGN( 

QY-IY) 
TH 1938 IF 0X<VX+6 AND 0X>UX~6 AND QY<VY+ 

6 AND QY>UY-6 THEN 1958 
KE 1948 GU=03:IQ=8:RETURN 
ZX 1958 CO=0:GU=O3iIQ=i!OF=0lIOi=O7 
DS I960 IF PEEK£ICE+UX+AX+55*£UY+AY))=8 T 

HEN DES=3:G0T0 1650 
DG 1970 UX=UX+AXiVY=VY+AY 
GL 1988 POKE ICE+VX+55*UY, 143 : POKE ICE+IX 

+55*IY,74 
JA 1998 Q=USR 11536, ADR (MAPS) +QX-5+55*£0Y- 

5),SCR+1+20*1) 
JT 200O FOR T=15 TO STEP -1: SOUND 3,128 

+T,8,TiNEXT Ti RETURN 
BH 2010 REM PLAYER KILLED BY MONSTER 
RX 2020 POKE ICE+QX+55*QY,0SQX=BX:QY=BY:G 

OTO 204B 
ZX 2030 POKE ICE+MX+55*MY,UiMX=MX+GXiMY=M 

Y+GY 
XT 204O POKE ICE+MX+55*MY,137 
HX 2O50 0=USR £1536, ADR £MAPS)+0X-5+55*£QY- 

5) , SCR+1+20*1) 
XA 2860 POKE ICE+MX+55*MY, O 
FY 2078 FOR T=0 TO 15IS0UND 1, 128-T, 18, T : 

NEXT T:MY=6:MX=20:TI=O2: SOUND 1,6,8,0 



QF 2888 POKE SCR+ME+12,8:ME=ME-1 

JO 2898 IF ME=6 THEN GOTO 2290 

OC 210O POSITION 5,18:? tt6; FULS i FL=19 

JL 2110 POKE ICE+0X+55*0Y,8 

NR 2128 IF P=137 THEN GOTO 678 

ZL 2138 0=USR£1536,ADR£MAP$)+0X-5+55*£0Y- 

51 , SCR+1+2B*1) : RETURN 
UO 2148 REM DESTROY SATELLITE ROUTINE 
KC 2150 POKE ICE+0X+55*QY,8:QX=BX:QY=BYiP 

OKE ICE+0X+55*QY,8 
IP 2160 SOUND 2,0,6,8 
IF 2178 Q=USR £1536, ADR (MAPS) +0X-5+55*(0Y- 

5),SCR+1+28*1) 
QO 2188 POSITION 1,2:? tt6;" satel 1 ite" : PO 

SITION 5,4:? tt6;"iS":P0SITI0N 2,6:? tt6 

^■destroyed" 
CC 2190 FOR T=i TO 150:S0UND 3,60+T,12,15 

iNEXT TiSOUND 3,0,0,0 
FX 220O IF LU<5 THEN 01=01-1:02=02-1:03=0 

3-1 : 05=05-10 : 04=04-2 : FU=FU-5 ! BM=BM+20 : 

LV=LV+1 
VT 2210 IF LV=2 THEN 07=07+2 
NO 2220 IF LU=3 OR LU=4 THEN 07=07-1 
KV 2230 FL=19:MX=28:MY=6:GU=03:TI=01:SC=5 

C+58B : IQ=8 ! 0F=1 ! RD=9 : Ml=04 : M=05 : IQ1=07 
MU 2248 P6KE 77,8 
HI 2258 IF LU=4 THEN ME=ME+1:P8KE SCR+ME+ 

12+28*8,8 
LK 2268 AN=PEEK £559) : POKE 559,0:GOSUB 240 

8:G0SUB 1548 
JR 2270 POSITION RD+1,14:? 86;" 

"iGOTO 580 
YN 2288 REM GAME OUER 
CI 2290 POSITION 2,2:? tt6;"gane over"iP05 

ITION 5,4:? tt6;"hit' "iPOSITION 4,6:? tt6 

; "start" 

IB 230O SOUND 2,0,0,0 

MG 2310 POSITION 5,8:? tt6;"key" 

TQ 2328 IF PEEK £53279) <>6 THEN 2328 

RC 2330 FOR T=l TO 8:S0UND 3, T*2, 10, 15 :NE 

XT TiSOUND 3,8,8,8:01=8:02=12:03=10:04 

=20:05=55 
MI 2340 QC=7:M=55:M1=20:RD=9:07=2:IQ1=2 
ZG 2350 IQ=0:MY=6!MX=20:GU=1O:OF=1:ME=6!T 

1=15 : FL=19 : SC=0 : LV=1 : FU=70 : BM=10 
LM 2368 AN=PEEK £559) : POKE 559,0:GOSUB 240 

OiGOSUB 1540 
MN 2370 FOR T=0 TO 7:P0KE 504+STR+T, 255 :N 

EXT T: POSITION 11,22:? »6;" " 
OB 2388 POSITION RD,14:? »6;" 

"iGOTO 568 
JZ 2398 REM SET MAP DATA IN STRING 
UD 2488 SN0W$=CHR$(63) i SNOWS (55) =SNOWS I SN 

0HS(2)=SN0NS 
LR 2418 MAP$=CHRS(0) i MAPS (2475) =MAPS I MAPS 

(2)=MAPS 
ZL 2428 BACK$=CHR$ £8) ! BACKS £2475) =BACK$:B 

ACK$£2)=BACKS 
LN 2438 FOR T=7 TO 45 : MAPS £55*T) =SNOU$ ! NE 

XT T 
FZ 2440 MAPS £55*7) =CHRS £0) : RETURN 
NP 2450 REM TITLE SCREEN 
IV 2468 GRAPHICS 8 : DLIST=PEEK f 560) +PEEK f 5 

6i)*256+4i SETCOLOR O, O, O : SETCOLOR 2,0, 

OlSETCOLOR i,o,o:poke 82,0 
ND 2478 POKE 752, 1 ! POSITION 2,8:? " " 
XN 2488 POKE DLIST+4, 7 : POSITION 2,3:? tt6; 

"NUCLEAR MOUNTAIN": POSITION 38,3:? 86; 

"By" 
CM 2498 POSITION 34,4:? tt6;"Brad TiMMins" 
IG 2580 FOR T=0 TO 12 
ZJ 2510 SETCOLOR 0,0,T:NEXT T 
MS 2520 FOR U=l TO 50:NEXT U 
GO 2530 FOR T=0 TO 12:SETC0L0R 1,0,T:NEXT 

T 
IL 2540 FOR T=l TO 100 iNEXT T : AN=PEEK (559 

):POKE 559,0:? 86; CHRS £125) i RETURN g\ 
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3410 DATA 105,118,101,115,0,72,65,76,3 

2,67,111,109,112,117,116,101,5930 

3420 DATA 114,115,0,83,101,108,109,97, 

114, 116, 32 , 83, 116 , 111, 114 , 101 , 6718 

3430 DATA 115,0,73,79,85,32,80,101,110 

,110,101,121,115,8,87,105,5198 

3440 DATA 108,116,39,115,32,86,181,103 

,101,116,97,98,168,101,115,8,5419 

3458 DATA 84,185,116,97,118,185,99,32, 

83,184,185,112,112,185,118,103,7119 

3460 DATA 0,83,116,181,97,188,32,83,11 

6 , 161, 181, 188 , 119 , 111, 114 , 187, 7383 

3470 DATA 115,0,83,105,108,105,99,111, 

118,32,71,117,188,99,184,8,4850 

3480 DATA 68,105,115,97,115,116,114,11 

1,117,115,32,73,110,115,117,114,7498 

3490 DATA 97,110,99,181,8,84,184,181,3 

2,76,117,99,187,32,83,113,4963 

3508 DATA 117,97,114,181,8,8,67,97,112 

,165,116,97,188,32,71,97,4769 

3518 DATA 105,118,115,32,84,97,128,8,2 

16,64,113,64,131,64,56,63,5192 

3528 DATA 253,63,237,63,288,64,17,64,4 

1,63,72,64,165,64,216,64,6741 

3530 DATA 119,63,139,63,86,64,156,63,1 

76,63,216,64,35,64,23,63,4916 

3540 DATA 214,62,53,64,260,64,228,62,1 

61,64,71,63,216,64,98,63,6917 

3558 DATA 185,63,148,64,244,62,6,63,21 

7,64,179,64,217,63,197,63,9615 

3560 DATA 165,163,178,189,75,48,133,17 

2,169,0,133,173,189,124,52,208,1648 

3576 DATA 1,96,168,185,3,48,197,166,26 

8,14,185,75,48,24,101,172,8191 

3580 DATA 133,172,165,173,105,0,133,17 

3,96,32,41,67,16,1,96,169,4889 

3590 DATA 103,160,56,32,125,71,32,186, 

65,240,1,96,165,153,10,168,8345 

3600 DATA 185,184,48,208,10,185,183,48 

,201,11,176,3,76,225,66,32,7485 

3610 DATA 45,66,166,168,48,2,208,1,96, 

189,39,48,201,3,144,10,5407 

3626 DATA 169,233,160,56,32,125,71,76, 

97,60,189,75,48,10,157,75,5745 

3630 DATA 48,254,39,48,189,111,48,24,1 

05,5,157,111,48,169,10,164,6452 

3646 DATA 153,32,178,70,76,268,66,169, 

86,160,56,32,125,71,32,102,6218 

3650 DATA 71,201,43,208,1,96,201,35,20 

8,244,201,0,96,32,51,65,7376 

3668 DATA 169,252,160,56,32,125,71,169 

,6,133,171,240,4,169,1,133,8448 

3670 DATA 171,165,153,18,168,185,184,4 

8,197,173,246,2,176,9,185,183,2576 

3680 DATA 48,197,172,144,27,240,25,164 

,153,165,172,32,178,70,169,8,9408 

3690 DATA 133,164,165,171,268,7,164,16 

6,165,172,32,155,76,76,288,66,455 

3788 DATA 169,1,133,164,32,22,74,165,1 

39,248,18,32,225,66,32,238,9338 

3718 DATA 66,165,168,16,188,184,184,76 

,146,73,165,163,133,167,32,41,8592 

3728 DATA 67,16,3,132,168,96,168,0,185 

,3,48,132,163,197,153,288,1199 

3738 DATA 77,32,61,74,238,178,165,164, 

248,14,169,28,168,57,32,125,8744 

3740 DATA 71,165,172,166,173,32,118,71 

,169,135,168,56,32,125,71,165,8946 

3750 DATA 164,288,7,169,158,168,56,32, 

125,71,198,178,32,182,71,281,9683 

3768 DATA 28,208,10,165,164,268,245,16 

9,0,133,163,246,8,201,33,248,3285 

3770 DATA 13,201,12,208,231,165,163,13 

3,168,165,167,133,163,96,164,163,4529 

3780 DATA 280,192,36,144,163,160,8,248 

,159,169,124,168,56,32,125,71,9335 

3790 DATA 32,186,65,240,1,96,165,153,1 
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64, 163, 16, 170, 189, 184, 48, 208, 2646 

3860 DATA 10,189,183,48,217,111,48,144 

,37,240,35,165,153,153,3,48,8218 

3818 DATA 152,178,254,147,48,185,111,4 

8,164,153,32,178,78,169,169,168,2028 

3820 DATA 56,32,125,71,32,97,66,169,0, 

133, 171 , 133, 173, 96 , 169, 194 , 1152 

3830 DATA 160,56,32,125,71,32,97,60,16 

9,0,96,32,41,67,16,3,1124 

3840 DATA 132,168,96,165,164,288,13,16 

9,115,168,56,32,125,71,32,186,8477 

3858 DATA 65,248,1,96,32,45,66,165,168 

,48,248,288,5,165,164,288,2373 

3868 DATA 243,96,178,222,147,48,169,25 

5,157,3,48,189,191,48,164,153,2241 

3878 DATA 32,155,78,76,288,66,168,35,1 

65,153,217,3,48,248,3,136,9285 

3888 DATA 16,248,96,166,153,181,149,26 

1,32,288,22,169,6,141,123,67,9375 

3898 DATA 169,78,141,124,67,169,125,32 

,17,78,169,217,168,64,76,112,8822 

3988 DATA 67,174,18,218,224,6,176,219, 

189,73,68,141,123,67,189,79,832 

3916 DATA 68,141,124,67,169,125,32,17, 

78, 169, 2B8, 166, 64, 32, 222, 68, 8993 

3926 DATA 169,98,168,68,32,125,71,32,2 

55,255,76,288,66,169,18,208,1579 

3930 DATA 2,169,15,164,153,133,165,32, 

155,76,32,158,67,169,117,168,9848 

3948 DATA 68,32,125,71,165,165,162,8,7 

6,118,71,169,85,168,68,32,7238 

3958 DATA 125,71,96,32,183,68,48,213,1 

78,189,39,48,261,3,176,265,996 

3968 DATA 254,39,48,189,75,48,18,157,7 

5,48,134,167,32,158,67,169,8151 

3978 DATA 117,168,68,32,125,71,169,164 

,168,68,32,125,71,165,167,18,8155 

3988 DATA 178,189,236,64,168,189,235,6 

4,76,125,71,32,249,67,169,126,1448 

3998 DATA 168,68,32,125,71,169,18,133, 

172,162,8,32,118,71,238,171,9651 

4688 DATA 32,224,65,184,184,96,169,92, 

168,68,76,125,71,32,183,68,7766 

4816 DATA 48,217,178,189,75,48,281,2,1 

44,209,74,157,75,48,169,136,286 

4828 DATA 168,68,72,132,155,32,249,67, 

32,21,76,184,164,155,32,125,7664 

4838 DATA 71,165,168,18,178,189,236,64 

, 168, 189, 235, 64, 76, 125, 71, 32, 193 

4848 DATA 183,68,48,167,178,189,111,48 

,281,2,144,159,74,157,111,48,9238 

4858 DATA 169,149,166,68,288,284,222,1 

28,8,132,58,166,67,67,68,67,7874 

4868 DATA 68,67,71,111,111,188,46,155, 

6,66,97,188,46,155,8,155,5811 

4876 DATA 155,89,111,117,114,32,168,11 

7,99,187,32,119,97,115,32,45,5478 

4888 DATA 32,8,89,111,117,32,119,185,1 

18,32,6,89,111,117,32,188,4948 

4896 DATA 111,115,161,32,8,49,47,58,32 

,82,161,110,116,32,111,110,4885 

4188 DATA 155,8,49,47,58,32,86,97,188, 

117, 181, 32, 111, 116, 32, 155, 5998 

4118 DATA 8,97,118,32,185,189,112,114, 

111, 118 , 181, 189 , 181 , 118, 116 , 32, 7348 

4128 DATA 111,118,155,8,32,41,67,16,1, 

96,168,8,162,8,185,3,3577 

4138 DATA 48,197,153,288,5,152,157,8,4 

1,232,288,192,36,288,239,232,5769 

4148 DATA 138,32,6,74,176,189,255,48,1 

33,168,96,133,155,132,156,169,3181 

4156 DATA 2,32,17,76,168,8,132,174,177 

,155,246,18,9,128,32,17,6227 

4166 DATA 76,164,174,268,268,246,169,2 

2,76,17,78,63,21,18,58,42,4166 

4178 DATA 56,61,57,13,1,5,0,37,35,8,10 

,47,40,62,45,11,8218 



AUGUST A.N.A.L.O.B. Computing 



Capital! 



4180 DATA 16,46,22,43,23,162,255,142,2 

52,2,173,252,2,291,255,246,6254 

4190 DATA 249,41,63,201,12,208,3,169,6 

,96,201,52,208,3,169,126,9287 

42O0 DATA 96,160,25,217,254,68,240,5,1 

36,16,248,48,216,152,24,165,621 

4210 DATA 65,96,133,155,132,156,160,8, 

132, 174 , 169 , 127 , 145, 155, 32 , 24, 9432 

4220 DATA 69,162,0,142,31,208,164,174, 

201,0,240,35,201,126,208,14,1714 

4230 DATA 192,0,248,228,169,0,145,155, 

136,145,155,76,75,69,192,8,9394 

4240 DATA 176,214,153,51,49,32,70,71,9 

,128,145,155,280,208,201,153,2793 

4250 DATA 51,49,145,155,96,169,207,141 

,48,2,169,52,141,49,2,169,7713 

4268 DATA 58,141,47,2,160,4,185,32,56, 

153,196,2,136,16,247,32,7547 

4270 DATA 15,70,169,0,133,130,169,32,1 

33,131,162,0,169,251,145,130,2071 

4280 DATA 206,138,24,105,209,145,130,2 

00,169,253,145,130,152,24,105,18,1054 

4290 DATA 168,232,228,138,288,230,160, 

0,132,175,165,130,24,105,4,164,477 

4300 DATA 131,32,69,69,173,51,49,240,2 

39,165,130,24,105,20,133,130,9651 

4310 DATA 169,40,133,156,164,175,185,1 

20,52,133,155,160,8,185,51,49,9373 

4320 DATA 145,155,136,16,248,164,175,2 

00,196,138,208,204,96,32,249,67,4679 

4330 DATA 169,126,160,68,32,125,71,169 

,45,76,234,67,169,125,201,155,2247 

4340 DATA 208,7,169,0,133,128,238,129, 

96,281,126,208,12,32,94,70,9034 

4350 DATA 32,119,70,169,0,168,145,130, 

96,201,125,208,20,160,0,152,246 

4360 DATA 153,6,32,153,0,33,153,0,34,2 

00,208,244,133,128,133,129,1592 

4370 DATA 96,32,76,71,72,32,119,70,160 

,0,104,145,130,166,128,232,939 

4380 DATA 224,32,144,4,230,129,162,6,1 

34,128,96,165,128,176,5,129,9879 

4390 DATA 240,17,202,16,12,162,31,164, 

129,208,4,162,0,240,2,198,9682 

4400 DATA 129,134,128,96,169,224,133,1 

30,169,31,133,131,164,129,165,130,3084 

4410 DATA 24,105,32,133,130,144,2,230, 

131,136,16,242,165,130,24,101,200 

4420 DATA 128,133,130,144,2,230,131,96 

, 72, 152, 10 , 168 , 104, 24, 121 , 183 , 9580 

4430 DATA 48,153,183,48,185,184,48,101 

,173,153,184,48,76,200,70,133,1351 

4440 DATA 166,152,10,168,185,183,48,56 

,229,160,153,183,48,185,184,48,2695 

4450 DATA 229,173,153,184,48,166,39,16 

9,0,153,227,48,136,16,250,166,2046 

4460 DATA 138,189,161,52,170,200,152,2 

4,105,17,157,227,48,169,26,157,431 

4470 DATA 228,48,134,161,132,162,152,1 

0,168,185,184,48,178,185,183,48,2891 

4480 DATA 32,25,71,166,161,168,255,200 

,177,243,240,9,32,70,71,157,2333 

4490 DATA 229,48,232,288,242,164,138,1 

65,161,24,121,158,52,170,164,162,3847 

4560 DATA 200,196,138,208,193,96,133,2 

12,134,213,5,213,268,9,169,179,4682 

4510 DATA 133,243,169,55,133,244,96,32 

,170,217,32,230,216,160,255,200,7798 

4520 DATA 177,243,16,251,41,127,145,24 

3,200,169,71,145,243,169,0,200,4897 

4538 DATA 145,243,96,32,88,71,29,55,53 

,166,136,96,32,88,71,29,5848 

4540 DATA 59,53,166,136,96,72,42,42,42 

,42,41,3,134,136,170,104,6434 

4550 DATA 41,159,96,162,255,142,252,2, 

173,252,2,201,255,240,249,142,8945 

4560 DATA 252,2,96,32,25,71,165,243,16 



4,244,141,132,71,146,133,71,1947 

4570 DATA 173,255,255,240,20,32,17,70, 

165,170,208,3,32,25,72,238,9112 

4580 DATA 132,71,208,236,238,133,71,20 

8,231,96,72,138,72,152,72,169,2986 

4590 DATA 192,160,7,162,2,141,24,208,7 

3,15,141,23,208,73,15,141,7300 

4600 DATA 10,212,202,16,240,24,105,2,1 

36,16,232,160,7,169,204,162,1764 

4610 DATA 2,141,24,268,73,15,141,23,20 

8,73,15,141,18,212,202,16,8267 

4628 DATA 240,56,233,2,136,16,232,169, 

4,141,23,208,104,168,164,170,1610 

4630 DATA 104,64,72,165,159,268,28,169 

,58,141,0,212,169,10,141,23,8625 

4640 DATA 208,141,22,208,169,162,141,2 

4,208,141,18,212,141,26,208,230,3957 

4650 DATA 159,104,64,169,0,141,10,212, 

141,26,208,104,64,169,0,133,8888 

4668 DATA 77,133,159,76,98,228,72,169, 

0,133,20,165,26,240,252,104,2092 

4670 DATA 96,134,128,132,129,96,169,7, 

162,72,160,16,32,92,228,32,8172 

4680 DATA 211,58,169,236,141,48,2,169, 

52,141,49,2,169,62,141,47,7166 

4690 DATA 2,32,25,72,169,36,141,244,2, 

169,157,141,0,2,169,71,7945 

4700 DATA 141,1,2,160,4,185,27,56,153, 

196,2,136,16,247,169,3,8496 

4710 DATA 141,4,212,169,0,133,139,133, 

140,169,2,133,138,169,37,32,8801 

4720 DATA 215,72,162,0,165,139,10,10,1 

68,185,171,55,157,195,54,280,2058 

4730 DATA 232,224,4,208,244,165,138,9, 

144,141,215,54,32,237,72,74,1219 

4740 DATA 144,3,76,191,72,74,144,19,16 

9,32,32,215,72,230,138,165,1485 

4750 DATA 138,201,5,144,205,169,2,133, 

138,288,199,74,144,196,169,16,2804 

4760 DATA 32,215,72,165,139,73,1,133,1 

39,76,117,72,160,3,169,0,7121 

4770 DATA 153,63,53,136,16,250,200,169 

,1,153,63,53,260,196,138,208,3694 

4780 DATA 248,76,136,69,141,2,210,169, 

164,141,3,216,160,192,202,208,5968 

4790 DATA 253,134,77,136,208,248,140,3 

,210,96,173,31,268,168,69,140,3074 

4800 DATA 37,140,132,140,201,4,96,169, 

229,141,0,2,169,71,141,1,7943 

4810 DATA 2,169,36,141,244,2,169,166,1 

41,48,2,169,52,141,49,2,6781 

4820 DATA 169,61,141,47,2,32,15,70,160 

,4,185,22,56,153,196,2,6210 

4830 DATA 136,16,247,169,6,133,170,133 

,164,32,22,74,166,153,181,149,1792 

4840 DATA 133,163,168,185,147,48,261,4 

,208,6,32,54,67,76,140,73,7140 

4850 DATA 32,61,74,164,163,185,3,48,13 

3,166,48,10,197,153,240,57,932 

4860 DATA 32,208,65,76,140,73,32,156,6 

6,208,46,164,163,185,124,52,966 

4870 DATA 240,39,133,163,168,185,3,48, 

16,31,185,111,48,72,74,24,5541 

4880 DATA 121,111,48,153,111,48,32,61, 

74,169,216,160,56,32,125,71,8373 

4890 DATA 32,156,66,164,163,104,153,11 

1,48,32,238,66,76,92,65,32,7411 

4900 DATA 21,70,32,21,70,165,153,72,17 

6,222,63,53,168,32,235,74,648 

4910 DATA 169,74,166,56,32,125,71,104, 

10,168,169,0,153,183,48,153,9518 

4920 DATA 184,48,162,35,189,3,48,197,1 

53,208,14,169,255,157,3,48,666 

4930 DATA 189,191,48,157,111,48,222,14 

7,48,282,16,232,32,200,70,32,36 

4940 DATA 97,60,162,0,160,3,185,63,53, 

240, 1, 232, 136, 16, 247, 224, 3213 



AUGUST A.N.A.L.O.O. Computing 



4958 DATA 2,144,3,76,185,58,32,21,78,1 

68,3,185,63,53,288,3,6438 

4968 DATA 136,16,248,32,235,74,169,37, 

168,56,32,125,71,32,182,71,6987 

4978 DATA 76,148,57,133,154,173,18,218 

,41,127,248,249,197,154,248,2,5219 

4988 DATA 176,243,96,168,35,185,111,48 

,248,9,74,133,165,32,6,74,7543 

4998 DATA 24,181,165,153,191,48,136,16 

,236,165,164,248,12,168,35,185,2985 

5888 DATA 111,48,74,153,191,48,136,16, 

246,96,238,178,169,185,168,55,4175 

5818 DATA 32,125,71,162,7,168,8,32,36, 

72,165,163,18,178,189,236,1348 

5828 DATA 64,168,189,235,64,32,222,68, 

162,8,168,1,32,36,72,162,7439 

5838 DATA 0,164,163,185,111,48,32,118, 

71,169,24,133,128,162,0,164,9343 

5848 DATA 163,185,191,48,32,118,71,164 

,163,185,39,48,9,16,141,72,6945 

5058 DATA 32,162,24,168,2,32,36,72,164 

,163,185,124,52,288,10,169,219 

5068 DATA 14,168,56,32,125,71,76,163,7 

4,169,18,168,56,32,125,71,7158 

5070 DATA 162,8,160,3,32,36,72,164,163 

,185,3,48,133,174,185,75,9998 

5080 DATA 48,133,165,185,124,52,248,16 

,170,189,3,48,197,174,288,8,1643 

5098 DATA 189,75,48,24,101,165,133,165 

,165,165,162,0,32,118,71,169,169 

510O DATA 24,133,128,32,119,70,164,163 

,185,3,48,168,32,235,74,198,1592 

5118 DATA 170,162,0,160,4,76,36,72,185 

,128,52,133,155,169,48,133,9690 

5120 DATA 156,192,255,208,8,169,17,133 
,155,169,56,133,156,165,155,164,4078 

5138 DATA 156,76,125,71,160,35,169,255 
,153,3,48,169,8,153,39,48,7788 

5148 DATA 136,16,243,160,115,185,0,52, 

153,75,48,136,16,247,160,8,9131 

5150 DATA 185,0,224,153,0,36,185,0,225 
,153,0,37,185,0,226,153,372 

5168 DATA 0,38,185,8,227,153,0,39,200, 

208,229,160,7,169,255,153,5205 

5170 DATA 248,37,136,16,258,169,148,13 

3,12,169,57,133,13,169,192,141,2020 

5188 DATA 14,212,96,0,112,71,115,40,11 

1,112,64,66,67,69,71,40,5174 

5190 DATA 40,40,40,40,40,40,40,40,40,4 

0,40,40,40,40,40,40,630 

5200 DATA 40,40,40,40,40,40,40,48,40,4 

0,40,40,110,73,40,40,2012 

5210 DATA 108,64,63,64,64,63,64,64,64, 

66,66,66,67,67,68,68,4220 

5220 DATA 68,66,64,67,69,48,48,40,40,4 

0,40,40,40,40,40,40,1065 

5230 DATA 40,40,40,40,119,64,94,40,109 
,64,64,64,64,64,63,64,4377 

5240 DATA 64,64,64,64,64,64,64,64,64,6 

4,64,64,76,40,98,113,5658 

5250 DATA 68,68,114,48,40,40,40,40,40, 

123,67,65,64,115,101,40,4700 

5260 DATA 64,64,63,64,64,64,63,63,64,6 

4,64,64,64,64,64,64,3946 

5270 DATA 64,64,64,64,64,64,64,64,85,1 

25,169,100,40,40,40,40,4308 

5288 DATA 121,64,64,63,120,40,40,75,64 

,63,64,51,52,57,58,43,3247 

5290 DATA 44,43,44,57,58,59,60,57,58,5 

7,58,57,58,53,54,64,3844 

5300 DATA 107,97,64,64,96,40,40,121,64 

,64,63,76,116,40,40,87,4898 

5318 DATA 64,63,64,64,64,64,63,63,63,6 

4,64,64,64,64,64,64,3988 

5328 DATA 64,64,64,64,64,64,64,64,96,9 

7,64,64,103,123,122,64,6845 

5330 DATA 64,63,76,40,40,40,40,64,63,6 



Capital! 



4,64,43,44,64,63,63,2988 

5340 DATA 64,64,64,64,64,64,64,64,64,6 

4,64,64,64,43,44,64,3450 

5350 DATA 94,95,64,64,64,64,64,64,64,6 

4,100,40,40,40,40,64,3246 

5360 DATA 63,64,64,64,64,63,64,63,63,6 

4,64,64,64,64,64,64,4040 

5370 DATA 64,64,64,64,64,64,64,64,64,6 

4,64,64,64,64,64,63,4858 

5380 DATA 64, 64, 100, 40, 40, 40, 40, 64, 64, 

63,64,43,44,64,63,63,3111 

5390 DATA 63,64,64,62,49,49,49,61,62,5 

0,49,50,61,43,44,57,2555 

5400 DATA 58,43,44,43,44,47,48,64,63,6 

4,99,40,40,40,40,64,2678 

5410 DATA 64,63,64,64,64,64,64,63,63,6 

4,64,62,49,50,49,61,3407 

5420 DATA 62,50,49,50,61,64,64,64,64,6 

4,64,64,64,64,64,63,3962 

5430 DATA 64,64,64,104,40,40,40,83,64, 

63,64,57,58,64,64,64,3842 

5440 DATA 63,63,64,62,49,49,49,61,62,5 

0,49,50,61,64,64,64,3309 

5450 DATA 64,64,64,64,63,57,58,64,64,6 

4,64,105,40,40,40,79,3789 

5460 DATA 64,64,63,64,64,64,64,64,64,6 

3,64,64,64,64,64,64,4151 

5470 DATA 64,64,64,64,64,64,64,64,64,6 

4,64,64,63,64,64,64,4161 

5480 DATA 64,64,101,40,40,40,40,126,78 

,64,64,57,58,57,58,53,3863 

5490 DATA 54,64,63,64,64,64,64,64,64,6 

4,64,64,64,64,64,64,4181 

550O DATA 64,55,56,43,44,43,44,64,64,1 

01,40,40,40,40,40,40,2138 

5510 DATA 127,78,64,64,64,64,64,64,64, 

63,63,64,64,64,64,64,4284 

5520 DATA 64,64,64,64,64,64,64,64,64,6 

4,64,63,64,64,64,64,4212 

5530 DATA 102,40,40,40,40,40,40,40,40, 

127,125,125,78,64,64,43,5095 

5540 DATA 44,43,44,57,58,57,58,59,68,4 

3,44,43,44,57,58,57,2662 

5550 DATA 58,57,58,64,64,64,64,64,96,4 

8,48,40,40,40,40,40,2320 

5560 DATA 40,40,40,40,126,125,78,64,64 

,64,64,63,64,64,64,64,4786 

5570 DATA 64,64,64,64,64,64,64,64,64,8 

1,81,82,82,82,78,64,5543 

5580 DATA 72,40,40,40,40,40,40,40,40,4 

0,40,40,40,40,127,125,3717 

5590 DATA 125,125,125,79,64,64,64,64,6 

4,64,64,64,64,64,64,64,4720 

5600 DATA 120,40,40,40,40,40,40,79,64, 

72,40,40,40,40,40,40,1968 

5610 DATA 40,40,40,40,40,40,40,40,40,4 

0,40,126,79,76,78,64,4047 

5620 DATA 64,64,64,76,125,125,125,125, 

125,40,40,40,40,40,40,126,5699 

5630 DATA 78,64,104,40,40,40,40,40,40, 

40,40,40,40,40,40,40,1348 

5640 DATA 40,40,40,40,126,40,126,78,64 

,64,77,40,40,40,40,40,3279 

5650 DATA 40,40,40,40,40,40,40,40,126, 

118,117,40,40,40,40,40,3491 

5660 DATA 40,40,40,40,40,40,40,40,40,4 

0,40,40,40,40,40,127,2492 

5670 DATA 78,64,124,40,40,40,40,40,40, 

40,40,40,40,40,40,40,1448 

5680 DATA 40,127,84,40,40,40,40,40,40, 

40,40,40,40,40,40,40,1426 

5690 DATA 40,40,40,40,40,40,40,40,127, 

78,40,40,40,40,40,40,2293 

570O DATA 40,40,40,40,40,40,40,40,40,4 

0,40,40,40,40,40,226,4116 

5710 DATA 2,227,2,0,48,0,0,0,0,0,0,0,0 

,0,0,0,6412 
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LISTING 2: ASSEMBLY 
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; SAVEttD : CAPITAL1 . H6S 


0116 

aize 

8138 


.OPT NO LIST 




8148 


; CAPITAL! • 


8158 




8168 


;by: Bryan Schappel ; 


8178 


;and Barry Kolbe ; 


8188 




8198 


I (CI 1988 BBK Enterprises; 


8288 
8218 
8228 






8238 


*= 8 


8248 


PASS .- PA5S+1 


8258 


.IF PA5S=1 


8268 


.INCLUDE 8D:SYSEQU.M65 


8278 


.ENDIF 


8288 


i 


8298 


;Zero Page Equates 


0388 


i 


8318 


*- $88 


8320 


XPOS .DS 1 ('cursor' x,y 


8338 


YPOS .DS 1 ;positions 
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SCR .DS 2 ;ind. scr loc 
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0350 SCR2 .DS 2 
0360 SAVEX .DS 1 
0370 XSV1 .DS 1 
0380 XSV2 .DS 1 
8390 PLAYER .DS 1 
8480 MAXP .DS 1 
8418 SPEED .DS 1 
8428 C0NSAU .DS 1 
8438 PX8 .DS 4 
8448 PY0 .DS 4 
8450 PTHPB .DS 4 
8460 PNUM .DS 1 
8470 RNUM .DS 1 
0480 L .DS 2 
0498 SQRS .DS 1 
8500 SCNT .DS 1 
0510 BDL .DS 1 
8520 CTMP .DS 1 
0530 XT .DS 1 
8540 YT .DS 1 
8558 CPR0P .DS 1 
8568 DISFLAG . DS 
8578 VALUE .DS 1 
8580 OWNER .DS 1 
0590 TPR0P .DS 1 
8680 PPR0P .DS 1 
8618 ESCFLAG .DS . 
8628 PAUSE? .DS 1 
8630 RFLAG . DS 1 
8648 AMOUNT .DS 2 
0650 SUY .DS 1 
8660 SVY2 .DS 1 
8678 ; 

8688 ; Other Memory Usage 
8690 ; 

0788 GR0MEH = $2880 
0710 MSET = $2480 
0720 NAMEBUF = $2800 
8730 GRTAB = $2908 
19 



;save X 
;register 



;nax it plyrs 
;gane speed 
;C0NS0L save 
;PMG x,y 
; positions 
;plyr nap pos 
;curr. plyr «* 

; indirect 

; squares to mov 



;cash tup save 
;save x £ y 

;cur. property 
jdisaster flag 

; owner of prop 
;tenp prop, a 
jpicked property 
)print "ESC ? 
;print speed 
;pay to whon? 
;anount owed 
;save y 
; register 



;txt scrn RAM 
;a char, set 



0748 B0TLIN 
0758 PMB = 
8760 P0 = 
0770 PI = 
8780 P2 = 
8798 P3 = 
0800 M0NEY-CLR 
0810 ; 



$8880 
$8408 
$8580 
$8600 
$8708 



;txt scrn 
;P/M base 
;player e 
;player 1 
jplayer 2 
;player 3 



length 



$A2 ;$ line color 



.MACRO PRINT 
LDA it <X1 
LDY 8 >X1 
JSR EPRINT 
.ENDM 

.MACRO POSITION 
LDX it <X1 
LDY tt Ot2 
JSR POSIT 
.ENDM 



0828 

0838 

8840 

0858 

8868 

8870 

0888 

0890 

8980 

8910 

0920 

0930 

0940 jstart of Assenbly 

0958 ; 

0960 *= $3088 

8978 CSET JMP FAKE 

8980 ; 

8998 ; Tables for property ownership 

1888 ;rent, cost and double Xref. 

1818 ; 

1020 WHO .DS 36 

1038 IMP .DS 36 

1848 RENT . DS 36 

1858 CBST .DS 36 

1868 REFTAB .DS 36 

1878 CASH .DS 8 

1888 RANTAB . DS 36 

1090 MONEY .DS 40 

1100 PRPLIN .DS 48 

1110 IBUF .DS 16 

1120 ; 

1138 ;Fetch the character set for 

1140 ;the Map of the US 

1150 ; 



; owners 
; improvements 
;rent 
; value 

;shadow table 
;players Money 
;selling price 
iMoney line 
;prop. line 
; input buffer 



1168 

1178 

1180 

1190 

1280 

1218 

1228 

1238 

1240 

1250 

1260 

1270 

1280 

1290 

1380 

1310 

1328 

1338 

1348 

1358 

1368 

1378 

1388 

1390 

1400 

1410 

1420 

1430 

1440 

1458 

1468 

1470 

1480 

1498 

1508 

1518 

1528 

1538 

1548 

1550 

1568 

1570 

1580 

1598 

1688 

1610 

1628 

1638 

1648 

1658 

1668 

1678 

1688 

1690 

1708 

1710 

1728 

1738 

1740 

1758 

1760 

1778 

1788 

1798 

1808 

1818 

1828 

1838 

1840 

1850 

1868 

1878 

1888 

1890 

1980 

1918 

1920 

1930 

1948 

1958 

1960 



*= $3140 

.INCLUDE ttD:CAPITAL3.M65 

; Initial Table Values 

i 

;the initial rent values 

;nust be less than 32 since 

; inprovenents are done by 

multiplying by 8 (3 ASL's) 

RENTORG .BYTE 8,15,14,8,25,21 
■BYTE 8,12,20,22,28,0 
.BYTE 4,6,15,7,5,0 
.BYTE 5,8,14,18,8,7 
.BYTE 19,3,0,16,15,21 
.BYTE 19,14,8,31,12,18 

;the initial cost of properties 

COSTORG .BYTE 0,23,37,25,69,65 
■BYTE 0,41,68,73,84,8 
.BYTE 12,15,38,17,13,8 
.BYTE 18,27,36,37,8,22 
.BYTE 51,11,8,53,48,56 
.BYTE 61,32,8,100,47,42 

initial status of each property 
128 rspecial, like TAX 
8=single, free - l=single, bought 
2=double, free - 3=double, bought 

4=LUCK, including CAP GAINS 

REFORG .BYTE 128,8,8,8,2,2 

.BYTE 4,8,8,2,2,128 

.BYTE 8,8,8,2,2,128 

■BYTE 0,2,2,8,4,0 

.BYTE 8,0,128,2,2,8 

.BYTE 2,2,4,8,2,2 

.WORD 375,375,375,375 

;these are the special squares 
;which have scrolling Messages 

SPLC .BYTE 0,11,17,26 

X9 .BYTE 0,9,18,27 

, 

;These cross reference tables 

;identify the double properties 

;by halves and allow the program 

jto find the other half of a 

; property. 

XREF .BYTE 0,8,8,0,5,4 
.BYTE 0,8,8,18,9,8 
.BYTE 8,0,8,16,15,8 
•BYTE 0,28,19,8,8,8 
.BYTE 8,8,8,28,27,0 
■BYTE 31,38,8,8,35,34 

; these are used to center the 
;info on the Money line 

OFFSET .BYTE 15,13,18 
XST .BYTE 5,3,1 

jDisplay List (Transactions) 

DLTXT .BYTE $70, $70, $70, $46 
.HORD TITLE 
.BYTE $06, $30, $62 
.WORD GR8MEM 

.BYTE 0, $22, $22, $22, $22, $22 
.BYTE $22, $22, $22, $22, $22 
.BYTE $22, $22, $22, $22, $22 
.BYTE $22,$22,$02,$B8,$C2 
•WORD MONEY 
.BYTE $20, $46 
.WORD PLRN 
.BYTE $41 
.WORD DLTXT 



o 



1970 
1988 
1998 
2888 
2818 
2828 
2838 
2848 
2858 
2868 
2878 
2888 
2898 
2188 
2118 
2128 
2138 
2148 
2150 
2168 
2178 
2188 
2198 
2288 
2218 
2228 
2238 
2248 
2258 
2268 
2278 
2288 
2298 
2388 
2318 
2328 
2338 
2348 
2358 
2368 
2378 
2388 
2398 
2488 
2418 
2428 
2438 
2448 
2458 
2468 
2478 
2488 
2498 
2588 
2518 
2528 
2538 
2548 
2558 
2568 
2578 
2588 
2598 
2688 
2618 
2628 
2638 
2648 
2658 
2668 
2678 
2688 
2698 
2788 
2718 
2728 
2738 
2748 
2758 
2768 
2778 



{Display List CNames) 

MDLIST .BYTE $78, $78, $78, $78, $78 

.BYTE $78, $46 

.WORD NAMEL 

.BYTE $78, $78, $46 

.WORD GROMEM 

.BYTE $78, $86, $78, $86, $78 

.BYTE $86, $41 

.WORD NDLIST 
i 
{Display List cintro) 

IDL .BYTE $78,$7B,$78,$F8,$42 

.WORD INTL 

.BYTE $82, $82, $82, $82 

.BYTE $38, $86, $78, $86, $78 

.BYTE $86, $38, $56 

.WORD AND 

.BYTE $38, $56 

.WORD KNAME 

.BYTE $78, $78, $46 

.WORD INTM 

.BYTE $78, $86, $78, $78, $78 

.BYTE $86, $56 

.HORD BBK 

.BYTE $41 

.HORD IDL 
i 
{Display List CUS nap} 



DL .BYTE 
.HORD 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.HORD 
.BYTE 

THIH .HORD 
.BYTE 
■ HORD 
.BYTE 
.HORD 



$78, $78, $58, $44 

SCRN 

$84, $84, $84, $84, $84 

$84, $84, $84, $84, $84 

$04, $84, $84, $84, $84 

$84, $04, $84, $84, $84 

$46 

PLRN 

$C2 

RLME5 
$08, $42 
MONEY 
$41 
DL 



;tables to convert ATASCII 
;to IC or vice versa 

A2I .BYTE $48, $88, $28, $68 
I2A .BYTE $28, $48, $88, $68 

;table for which players 
;are on the screen 8=off,l=on 

ONBRD .BYTE 8,8,8,8 

;screen titles 

TITLE .5BYTE " CAPITAL! ■ 

.SBYTE •' iltlitmmiH " 

PLRM .SBYTE " " 

.SBYTE " 

NAMEL .SBYTE " enter yo" 
.SBYTE "ur names " 

•Data for the word CAPITAL! 
;on the intro screen. This 

;was done with contro chars. 

INTL .BYTE $88, $88, $88, $48, $88 
■BYTE $88,$4A,$8B,$48,$88 
.BYTE $88,$4A,$88,$48,$88 
.BYTE $88,$4A,$8e,$48,$88 
.BYTE $4A,$88,$48,$88,$4A 
.BYTE $88,$48,$88,$88,$4A 

.byte $ee,$4A,$8e,$ee,$ee 

.BYTE $88, $48, $88, $88, $88 
.BYTE $88,$88,$88,$88,$C8 

.byte $88,$ee,$ee,$80,$c8 

.BYTE $CA,$88,$88,$8B,$C8 



2788 

2798 

2888 

2818 

2828 

2838 

2848 

2858 

2868 

2878 

2888 

2898 

2988 

2910 

2928 

2938 

2948 

2958 

2968 

2978 

2988 

2998 

3888 

3818 

3828 

3830 

3840 

3858 

3868 

3878 

3888 

3890 

3188 

3118 

3128 

3138 

3148 

3158 

3168 

3178 

3188 

3190 

3288 

3218 

3228 

3238 

3248 

3258 

3268 

3278 

3288 

3298 

3388 

3318 

3320 

3338 

3348 

3358 

3368 

3378 

3388 

3398 

3480 

3410 

3428 

3438 

3448 

3458 

3468 

3478 

3488 

3498 

3588 

3518 

3528 

3538 

3548 

3558 

3560 

3578 

3588 



• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



sen 

$00 

$88 

$88 

$88 

$88 

$88 

$52 

$88 

$88 

$88 

$00 

$08 

$ 

$88 

$00 

$00 

$08 

$88 

$ 

$88 

$88 

$88 

$88 

$88 

$C8 

$80 

$00 

$88 



,$88, 
,$88, 
,$88, 
,$88, 
,$88, 
,$88, 
,$88, 
,$88, 
,$C8, 

$88, 
,$88, 
,$88, 
,$88, 
,SBB, 
,$88, 
,S88, 
,$08, 
,$80, 

$80, 
,$88, 
,$C8, 
,$00, 
,$C8, 
,$CA, 
,$00, 
,$88, 
,$C8, 
,$CA, 
,$4F, 



$88, $88, $88 
$88, $88, $88 
$C8,$CA,$88 
$88, $88, $88 
$88, $88, $88 
$88, $88, $88 
$80, $88, $52 
$88, $88, $88 
$88, $88, $88 
$88, $88, $88 
$52, $52, $88 
$88, $88, $80 
$88, $88, $80 
$80,$80,$4A 
$88, $88, $88 
$88, $88, $88 
$80, $08, $88 
$88, $88, $00 
$88, $80, $80 
$4A,$00,$88 
$88, $88, $88 
$88,$CA,$80 
$88,$C8,$88 
$88,$C8,$88 
$88,$CA,$88 
$88, $88, $88 
$88,$88,$CA 
$80,$88,$C8 
$80, $08, $80 



; Other Screen Memory 

.sbyte 'TEEE GE K£Q HE" 
.SBYTE "EHH3" 
LO .SBYTE " programmed by" 
.BYTE "Z", 8,8,0 

.sbyte ■■ aaaa aaaaaaii " 

.SBYTE " 

AND .SBYTE " GEE 

.SBYTE " " 
KNAME .SBYTE •• |;M:I:H QHITTJ" 

.SBYTE " " 
INTM .SBYTE " UAtUl] fast ■■ 

.SBYTE "game " 

PLN .SBYTE " SELECT " 

.SBYTE "HHH-H " 

•SBYTE " COPYRIGHT " 

.SBYTE "1988 " 

BBK .SBYTE " bbk enterprises" 

.SBYTE " " 
, 

{Scrolling Text Messages 



RLMSS .SBYTE " HaHOU R" 
.SBYTE "O LL DICE " 
.SBYTE " HOBi 5" 
.SBYTE "TOP DICE " 

STKMES .SBYTE " StocK Ma" 
.SBYTE "rket Divid" 
.SBYTE "ends pay y" 
.SBYTE "ou $12G " 

TAXMES .SBYTE ■■ IRS Tax ■' 
.SBYTE "Audit: 10S" 
.SBYTE "e 12X Of y" 
.SBYTE "our cash " 

VACMES .SBYTE " Vacati" 
.SBYTE "on time at" 
.SBYTE " the Hog H" 
.SBYTE "ilton " 

FAST .SBYTE "fast" 

SLOH .SBYTE "Slow" 

BROKE .BYTE "BROKE", 

, 

{Property Selection Box 

BOX .BYTE 125 

.BYTE " Prop:",EOL 



3598 
3688 
3618 
3628 
3638 
3648 
3658 
3668 
3678 
3688 
3698 
3788 
3718 
3728 
3738 
3748 
3758 
3768 
3778 
3788 
3798 
3888 
3818 
3828 
3838 
3840 
3850 
3860 
3870 
3888 
3898 
3988 
3918 
3920 
3938 
3948 
3958 
3968 
3970 
3980 
3990 
4088 
4818 
4828 
4838 
4848 
4850 
4868 
4878 
4888 
4090 
4188 
4118 
4128 
4138 
4148 
4158 
4168 
4178 
4180 
4190 
4200 
4210 
4220 
4230 
4248 
4258 
4260 
4270 
4288 
4298 
4388 
4310 
4328 
4330 
4340 
4358 
4368 
4378 
4388 
4398 



.BYTE " Price: " 
.BYTE "Resale:", EOL 
.BYTE " Level : " 
.BYTE "Double:", EOL 
.BYTE " Fee: " 
.BYTE " Owner :",e 

YES .BYTE "Yes", 8 
NO .BYTE "NO",B 
NA .BYTE "None", 8 

{colors for various screens 

TCLR .BYTE $42, $0A, $02, $D4, $88 
ICLR .BYTE $94, $06, $00, $42, $88 
NCLR .BYTE $C4, $96, $8A, $8F, $88 

{more messages 

WINNER .BYTE " has won!" 
.BYTE EOL, "Press a ke" 
.BYTE "y to play again. ",e 

DEAD_MES .BYTE " is Broke!", EOL 
.BYTE 

YNTXT .BYTE " property [Y/N]?",0 

IMP_TXT .BYTE EOL, EOL, "Improve " 
• BYTE "a" 8 

SELL-TXT .BYTE EOL, EOL, "Sel 1 a" 
.BYTE 8 

BYTE EOL, EOL, "Buy thi" 



BUY_MESS 
.BYTE 

PICK_MESS 
.BYTE 

PICK-REST 



.BYTE EOL,EOL,"SPC=ne" 
"Xt, RET=Ch00Se",8 
.BYTE ", ESC=exit",8 
TRAN-OK .BYTE EOL, EOL, "Tran" 

.BYTE "saction processed.", e 
NCASH .BYTE EOL, EOL, "Insuf f ic ie" 

.BYTE "nt funds.", 8 
DOPT .BYTE EOL, EOL, "Double Opti" 

.BYTE "on.", 8 
MAX .BYTE EOL, EOL, "At Maximum " 

.BYTE "Level", 8 
FEE .BYTE EOL, EOL, "Fee Payment" 

.BYTE " Required. ",B 
AMTOWD .BYTE EOL, EOL, "Amount O" 

.BYTE "wed ",8 

{Get the Map Handler Half of 
{the game. 

.INCLUDE ttD:CAPITAL4.M65 
.INCLUDE 8D: CAPITALS. M65 



{Put a byte to the screen 

CLRSCR LDA tt$7D {clear sen 
EPUT CMP StEOL {a CR? 

BNE TRYDEL 
PUTCR LDA ttO {linefeed 

STA XPOS 

INC YPOS 

RTS 

TRYDEL CMP tt$7E {delete? 

BNE TRYCLR 

JSR MOUELEFT {DEL-BCKSP 

JSR GETSCR {get scrn loc 

LDA 88 

TAY 

STA CSCR],Y 

RTS 
TRYCLR CMP «$7D {clear? 

BNE NORMAL 

LDY no 

TYA 



{zap char 



o 



{clear the 
CLRSC STA GROMEM, Y {screen 
STA GR0MEM+$O1B8,Y 
STA GR8MEM+$028B, Y 
INY 
BNE CLRSC 



4408 


STA XPOS 




4419 


STA YPOS 




4420 


RTS 




4430 


• 




4448 


NORMAL J5R ASC2IC ; to INT. COd 


4459 


PHA 


jsave it 


4468 


J5R GETSCR 


;get sen loc 


4478 


LDY tte 




4488 


PLA 


;get byte 


4498 


STA CSCRJ.Y 


;on screen 


4589 


1 




451B 


GORIGHT LDX XPOS 


;nove 'cursor 


4528 


INX 


;to right 


4539 


CPX 8S2B 


;at end of 


4549 


BCC EPLEAU 


; line? 


4559 


INC YPOS 


;yes 


4569 


LDX MO 


;left Margin 


4578 


EPLEAU 5TX XPOS 




4588 


RTS 




4598 


I 




4699 


MOUELEFT LDA XPOS ;can we 


4618 


TAX 


;go left? 


4628 


ORA YPOS 




4638 


BEQ GOLEAV 


I no 


4648 


DEX 


;yes 


4658 


BPL GOX 




4668 


LDX 831 


;if SFF go 


4678 


LDY YPOS 


;up 1 line 


4688 


BNE MUUP 


;if not 8 


4698 


LDX 88 




4788 


BEQ GBX 




4718 


MUUP DEC YPOS 


;up 1 line 


4729 


GOX STX XPOS 




4739 


GOLEAU RTS 


;exit 


4748 


i 




4759 


■Get Scr Me» Loc 


of Cursor 


4768 


* 




4778 


GETSCR LDA 8 < [GR9MEM-32J 


4788 


STA SCR 




4798 


LDA 8 > CGR8MEM-321 


4888 


STA SCR+1 




4818 


LDY YPOS 


jget the 


4828 


GETSC1 LDA SCR 


;correct 


4838 


CLC 


;row 


4848 


ADC 8$28 


;narrow plfld 


4858 


STA SCR 




4869 


BCC GODMN 




4879 


INC SCR+1 




4888 


GODMN DEY 


;at row yet? 


4898 


BPL GETSC1 


;no 


4988 


LDA SCR 


;now get the 


4918 


CLC 


;colUMn 


4928 


ADC XPOS 


;add in x 


4938 


STA SCR 


; position 


4948 


BCC GETSCDN 




4958 


INC SCR+1 




4968 


GETSCDN RTS 




4978 


• 




4988 


jfldd Money to player cash 


4998 


i 




5889 


ADD PHA 


;save $ 


5818 


TYA 


;plyr 8 


5828 


ASL A 


;x2 


5838 


TAY 




5848 


PLA 


;get $ 


5858 


CLC 




5868 


ADC CASH,Y 


;add to 


5878 


STA CASH.Y 


jplyr's cash 


5888 


LDA CASH+1, Y 


5898 


ADC AMOUNT+1 J if >255 


5188 


STA CASH+1, Y 


5118 


JMP FORMDOL 


jshow result 


5128 


I 




5138 


; Subtract Money 


froH player 


5148 


J 




5158 


SUB STA CTMP 


jsave $ 


5168 


TYA 


;get plyr 8 


5178 


ASL A 


;x2 


5188 


TAY 




5198 


LDA CASH,Y 


;get cash 


5299 


SEC 


;subt. S 



5210 




SBC 


CTMP 




5220 




STA 


CASH,Y 




5230 




LDA 


CASH+1, Y 




5240 




SBC 


AMOUNT+1 


•if $ > 255 


5250 




STA 


CASH+1, Y 


jfall through 


5269 


; 








5279 


;ForMat 


MONEY line 


5289 


; 








5290 


FORMDOL 


LDY 839 


zero out 


5380 




LDA 


80 


the line 


5310 


FD1 


5TA 


MONEY, Y 




5320 




DEY 






5330 




BPL 


FD1 




5340 




LDX 


MAXP 


Max piyrs 


5359 




LDA 


X5T-2,X 


for centering 


5369 




TAX 




info 


5379 




INY 




y was $FF 


5389 


FD2 


TYA 




plyr 8 


5390 




CLC 






5400 




ADC 


8S11 


for screen IC 


5410 




5TA 


MONEY, X 


show it 


5420 




LDA 


851A 


•$• 


5430 




STA 


MONEY+1, 


< 


5440 




STX 


XT 


save x,y 


5450 




STY 


YT 




5460 




TYA 




plyr 8 


5479 




ASL 


A 


■X2 


5489 




TAY 






5490 




LDA 


CASH+1, Y 


■get his cash 


5500 




TAX 




;x=high byte 


5510 




LDA 


CASH,Y 


;a=low 


5520 




JSR 


FORMNUM 


;to ATASCII 


5530 




LDX 


XT 


i position 


5549 




LDY 


8SFF 


now 


5550 


FD3 


INY 




change cash 


5560 




LDA 


tINBUFF) 


,Y ;to 


5570 




BEQ 


FD4 


;if '9' done 


5580 




JSR 


ASC2IC 


linternal code 


5590 




STA 


MONEY+2, 


K jshow it 


5600 




INX 






5610 




BNE 


FD3 


jnext digit 


5629 


FD4 


LDY 


MAXP 


;get offset 


5630 




LDA 


XT 


;to next 


5649 




CLC 




jplyr's info 


5650 




ADC 


0FF5ET-2 


,Y 


5668 




TAX 






5670 




LDY 


YT 




5680 




INY 




jnext plyr 


5690 




CPY 


MAXP 


; last one? 


5700 




BNE 


FD2 


: no 


5710 




RTS 




; whew! 


5720 


i 








5730 


jForMat 


a nuMber 




5740 


; 








5750 


FORMNUM 


STA FRO 


;low byte 


5760 




STX 


FR0+1 


jhi 


5770 




ORA 


FRO+1 


■hello: 


5780 




BNE 


GFP 




5790 




LDA 


8 <BROKE 


;if 9 you 


5880 




STA 


INBUFF 


; are 'broke* 


5818 




LDA 


8 >BROKE 




5820 




STA 


INBUFF+1 




5830 




RTS 






5840 


GFP 


JSR 


IFP 


;INT to FP 


5850 




JSR 


FASC 


;FP to ATASCII 


5860 




LDY 


8$FF 




5870 


FM1 


INY 




find last 


5888 




LDA 


tINBUFFJ 


,Y ;inversed 


5899 




BPL 


FM1 


digit 


5900 




AND 


8S7F 


& Make it 


5910 




STA 


CINBUFFJ 


Y jregular 


5920 




INY 




add a 'G' 


5930 




LDA 


8'G 




5940 




STA 


CINBUFF) 


Y ;and an EOL 


5950 




LDA 


80 


i.e. a 8 


5960 




INY 






5970 




STA 


CINBUFF) 


Y 


5980 




RTS 




done 


5990 


; 








6000 


;Convert ASCII to ICODE 


6010 


; 









6828 


ASC2IC JSR BITER 


6838 


ORA A2I,X 


6848 


LDX XSU2 


6858 


RTS 


6868 


i 


6878 


; Convert ICODE to ASC 


6888 


i 


6898 


IC2ASC JSR BITER 


6188 


ORA I2A,X 


6118 


LDX XSU2 


6128 


RTS 


6138 


1 


6148 


;Make char an index 


6158 


i 


6168 


BITER PHA 


6178 


ROL A 


6188 


ROL A 


6198 


ROL A 


6288 


ROL A 


6218 


AND 83 


6228 


STX XSU2 


6238 


TAX 


6248 


PLA 


6258 


AND 8$9F 


6268 


RTS 


6278 


• 


6288 


•INCLUDE 8D1CAPITAL2.M65 


6298 


, 


6388 


«= $7808 


6318 


j the screen data for the 


6328 


;nap of the U.S.A. 


6338 


; 


6348 


.INCLUDE 8Dr.CAPITAL6.M65 


6358 


*= $82E8 


6368 


.WORD CSET 


6378 


.END 



o 



LISTING 3: ASSEMBLY 



8180 
8118 
8128 
8138 
8148 
8158 
0168 
8178 
0189 
9190 
9200 
9219 
9229 
9239 
9240 
0258 
0269 
9279 
9288 
8298 
8398 
0310 
0329 
8339 
8348 
8358 
8368 
9379 
9388 
0399 
9400 



SAUE8D : CAPITAL2 . M65 
CAPITAL! part 2 

by: Bryan Schappel 

Get a key press 

GETCH LDX 85FF 

STX CH 
GETC LDA CH 

CMP 8SFF 

BEQ GETC 

STX CH 

RTS 

jPrint a NuMber 

PRNUM JSR FORMNUM ;tO IC first 
LDA INBUFF ;fall through 
LDY INBUFF+1 

;Eprint Routine 

EPRINT STA EPL+1 ; A= low byte 

STY EPL+2 ;Y = hi byte 
EPL LDA SFFFF iprint until 



0410 




BEQ 


EPO 


;hitting a 6 


9426 




JSR 


EPUT 


;put it 


8438 




LDA 


PAUSE? 


; fast or slow 


8448 




BNE 


EPN 


;printing? 


8458 




JSR 


JIFF 


I wait a jiff 


8468 


EPN 


INC 


EPL+1 


;next byte 


6478 




BNE 


EPL 




8486 




INC 


EPL+2 




8496 




BNE 


EPL 




8586 


EPO 


RT5 




;exit 


8516 


1 








8528 


; Intro DLI 




8538 


I 








6548 


IDLI PHA 


;saue all the 


8556 




TXA 




[registers 


8566 




PHA 






8576 




TYA 






8586 




PHA 






8598 




LDn 


tt$C8 


; green hue 


eeee 




LDY 


m 


[dark lun 


6618 


IDLP LDX 82 




6628 


IDLI STA COLPF2 


[plyfld 2 


6638 




EOR 


8$8F 


[switch 1UH 


6648 




STfl 


COLPF1 


[plyfld 1 


6658 




EOR 


8$8F 


[Swtich back 


6668 




STfl 


HSYNC 


;wait sync 


6676 




DEX 




;3 lines 


6688 




BPL 


IDLI 




6698 




CLC 






6768 




ADC 


»2 


j increase lun 


6718 




DEY 




;8 tines 


6728 




BPL 


IDLP 


;nore shades 


6738 




LDY 


87 


;now start 


6748 




LDA 


<t$CC 


;with bright 


6758 


IDL2 LDX 82 


j and shade 


6768 


IDL3 STA C8LPF2 




6778 




EOR 


8$8F 




8788 




STA 


COLPF1 




8798 




EOR 


<t$6F 




8866 




STA 


HSYNC 




8818 




DEX 






8826 




BPL 


IDL3 




8836 




SEC 




;bring lun 


8846 




SBC 


82 


; down 


8856 




DEY 






8866 




BPL 


IDL2 




8878 




LDA 


8$64 


[gray 


8886 




STA 


COLPF1 




6896 




PLA 




; restore 


8966 




TAY 




;registers 


6918 




PLA 






6926 




TAX 






8936 




PLA 






8948 




RTI 




;exit 


6958 


; 








6968 


[Text Screen DLI 


6976 


• 








6988 


TDLI PHA 


;save A 


8996 




LDA 


BDL 


;DLI cntr 


1888 




BNE 


TDL2 




1816 




LDA 


858 


;to narrow 


1828 




STA 


DMACTL 


;piyfid 


1836 




LDA 


818 


; white 


1846 




STA 


COLPF1 




1658 




STA 


C0LPF8 




1666 




LDA 


8MONEY- 


CLR ;$ line 


1676 




STA 


C0LPF2 




1886 




STA 


HSYNC 




1896 




STA 


COLBK 


;& bckgrnd 


1186 




INC 


BDL 




1116 




PLA 




j restore A 


1128 




RTI 




;exit 


1136 


TDL2 


;top DLI 


1146 




STA 


HSYNC 




1156 




STA 


COLBK 


;black bckgnd 


1166 




PLA 






1178 




RTI 






1188 


; 








1198 


;5i 


Mple 


UBI to 


keep DLI'S OK 


1288 


# 








1218 


UBI 


LDA 


88 





1226 




STA 


ATRACT 




1238 




STA 


BDL 


;DLI counter 


1248 




J MP 


XITVBV 




1256 


i 








1266 


;Ha 


it Routine 




1276 


• 








1288 


JIFF P 




[wait 1 jiffy 


1298 




LDA 


88 




1388 




STA 


RTCLOK 




1318 


HI 


LDA 


RTCLOK 




1326 




BEQ 


HI 




1336 




PLA 






1346 




RTS 






1358 


l 








1366 


[Position Cursor 




1376 


] 








1386 


POSIT 5TX XPOS 




1396 




STY 


YPOS 




I486 




RTS 






1416 


i 








1428 


;Intro Routine 




1438 


J 








1448 


INTRO LDA 87 


;set up Ublank 


1456 




LDX 


8 >VBI 




1466 




LDY 


8 <VBI 




1476 




JSR 


SETVBV 




I486 




JSR 


CLRPMG 


; erase PMG 


1498 




LDA 


8 <IDL 


{install DLI5T 


1588 




STA 


SDL5TL 




1516 




LDA 


8 >IDL 




1526 




STA 


SDLSTL+1 


1538 




LDA 


862 


;nornal plyfd 


1546 




STA 


SDMCTL 




1558 




JSR 


JIFF 


jwait a jiff 


1568 




LDA 


8 >MSET 


;our char 


1578 




STA 


CHBftS 


;set 


1588 




LDA 


8 <IDLI 


[install DLI 


1598 




STA 


UD5LST 




1668 




LDA 


8 >IDLI 




1618 




STA 


VD5LST+1 


1628 




LDY 


84 


;get intro 


1639 


INTY ! 


;colors 


1648 




STA 


COLORS, Y 


1658 




DEY 






1668 




BPL 


INTY 




1678 




LDA 


83 


; center sone 


1688 




STA 


HSCROL 


;text 


1696 




LDA 


88 


;8 = fast 


1766 




STA 


SPEED 


;gane speed 


1718 




STA 


CONSAV 




1726 




LDA 


82 


jdefault 8 


1736 




STA 


MAXP 


;players 


1748 




LDA 


8$25 


jnake a tone 


1758 




JSR 


BUZZER 




1768 


INTRL LDX 


jget the 


1778 




LDA 


SPEED 


;word "fast" 


1788 




ASL 


A 


;or "slow 1 


1798 




ASL 


A 




1888 




TAY 






1816 


RL1 


LDA 


FAST.Y 


jput it on 


1826 




STA 


INTM+18, 


X ;screen 


1836 




INY 






1848 




INX 






1858 




CPX 


84 


; done? 


1868 




BNE 


RL1 




1876 




LDA 


MAXP 


;8 plyrs 


1888 




ORA 


B$90 


Jill COLOR! 


1898 




STA 


PLN+1B 


;show it 


1988 




JSR 


CONC 


;get CONSOL 


1916 




LSR 


A 


;/2 


1926 




BCC 


ST2 




1936 




J MP 


INTLV 


j START! 


1946 


; 








1958 


ST2 


LSR 


A 


; SELECT? 


1968 




BCC 


ST3 




1978 




LDA 


8S2B 


; tone 


1988 




JSR 


BUZZER 




1996 




INC 


MAXP 


;nore plyrs 


2866 




LDA 


MAXP 


;too nany? 


2816 




CMP 


85 




2626 




BCC 


INTRL 


;no 



2638 
2848 
2856 
2666 
2878 
2886 
2698 
2168 
2118 
2128 
2136 
2148 
2156 
2168 
2178 
2188 
2196 
2288 
2216 
2226 
2236 
2248 
2258 
2266 
2278 
2288 
2296 
2368 
2318 
2326 
2338 
2346 
2358 
2368 
2378 
2388 
2398 
2468 
2418 
2428 
2438 
2448 
2458 
2468 
2478 
2488 
2498 
2588 
2518 
2528 
2536 
2546 
2558 
2568 
2578 
2588 
2596 
2688 
2618 
2628 
2638 
2646 
2656 
2666 
2676 
2688 
2698 
2706 
2716 
2726 
2738 
2748 
2758 
2768 
2776 
2786 
2798 
2888 
2818 
2828 
2836 



LDA 82 
STA MAXP 
BNE INTRL 

ST3 LSR A 

BCC INTRL 
LDA tt$10 
JSR BUZZER 
LDA SPEED 
EOR 81 
STA SPEED 
JMP INTRL J 

INTLV LDY 83 

LDA 86 j 

TCL STA ONBRD.Y 
DEY 

BPL TCL 
INY J 

LDA 81 1 

TCL2 STA ONBRD.Y 
INY i 

CPY MAXP j 
BNE TCL2 ; 
JMP GETNAMES 

l 

; Buzzer sound 



[reset to 2 

; loooooppppp 

(is it OPTION? 
jnaw 

[another tone 

[change speed 



loop de loop 
yea, we start 
zap all 



put l's for 

those plyrs 

[getting 

tokens 

enuf? 

yup 

;who are they? 



BUZZER STA AUDF2 [doesn't 



[sound like 
[a buzzer to ne 
[but ok 
jnake a sound 



LDA 8$A4 

STA AUDC2 

LDY 8$C8 
BZ DEX 

BNE BZ 

STX ATRACT 
DEY 

BNE BZ 

STY AUDC2 
RTS 

[Console Checker 



CONC LDA CONSOL [get button 



TAY 

EOR CONSAV 

AND CONSAV 

STY CONSAV 

CMP 84 

RTS 



wonder 
[what this 
[does except 
[waste tine 



[Transaction Processor 

TRANS LDA 8 <TDLI [put in DLI 
STA VDSLST 
LDA 8 >TDLI 
STA VD5LST+1 

LDA 8 >MSET [our char set 
STA CHBAS 

LDA 8 <DLTXT [S our display 
STA SDLSTL [list 
8 >DLTXT 



LDA 

STA SDLSTL+1 



LDA 
STA 
JSR 
LDY 
TC LDA 
STA 
DEY 
BPL 
LDA 
STA 
STA 
JSR 
LDX 
LDA 
STA 
TAY 
LDA 
CMP 
BNE 
JSR 



861 

SDMCTL 

CLRSCR 

84 

TCLR,Y 

COLORB.Y 



[->narrow<- 
[plyfld 
[Clear screen 
[get our 
[coloring set 



[8=fast print 



TC 

88 

PAUSE? 

DISFLAG [no disaster 

NAKE_RAN [get selling 

PNUM [prices 

PTHP6,x [get property 

CPROP [ landed on 

REFTAB,Y [What is it? 
84 [LUCK?? 
GHHO [no who has it? 
DO-LUCK [U LUCky dog! 



o 



2848 
2858 
2868 
2879 
2888 
2898 
2988 
2918 
2928 
2938 
2948 
2958 
2968 
2978 
2988 
2998 
3888 
3818 
3828 
3838 
3848 
3858 
3868 
3878 
3888 
3898 
3188 
3118 
3128 
3138 
3148 
3158 
3169 
3178 
3188 
3198 
3288 
3219 
3229 
3238 
3248 
3259 
3268 
3278 
3288 
3298 
3388 
3318 
3328 
3338 
3348 
3358 
3368 
3378 
3388 
3398 
3488 
3418 
3428 
3438 
3448 
3458 
3468 
3478 
3488 
3498 
3588 
3518 
3528 
3538 
3548 
3559 
3569 
3579 
3589 
3598 
3688 
3618 
3628 
3638 
3648 



JMP OVER JSkip this 
GHHO JSR SHOPROP jshow prop info 



LDV CPROP 
LDA MHO,Y 
5TA OWNER 
BMI TRY-BUY j$FF=no one 



jcurr prop tt 
;get owner 



CMP PNUM ;is it US (ME?) 
BEQ OVER jyes 
JSR PAY-RENT ;Ugh pay rent 
JMP OVER ;skip buying 
TRY-BUY JSR BUY-IT ; wanna buy 
BNE OVER ja bridge? 
LDY CPROP ;check for a 
LDA XREF,Y Jdouble 



BEQ OVER 

STA CPROP 

TAY 

LDA MHO,Y 

BPL OVER 

LDA COST,Y 

PHA 

LSR A 

CLC 

ADC COST,Y 

STA COST,Y 



;nope 
;save it 

;who owns it? 
j + = owned 
;how Much? is 
;that double 



; add 1/2 again 
;as Much for 
j doubles 
JSR SHOPROP jshow prop info 

PRINT DOPT ; 'Doubl option' 
JSR BUY-IT ; 'wanna buy?" 
LDY CPROP ; location 
PLA ;restore origin- 
STA C0ST,Y ;al cost of prop 
OVER. JSR WANT-SALE ;sell a prop 
JMP improve ;iMprove one? 

;Handle Player Death 



DEAD JSR PUTCR 

JSR PUTCR 

LDA PNUM 

PHA 

TAX 

DEC ONBRD,X 

TAY 

JSR SHO-NAME 
PRINT DEAD 

PLA 

ASL A 

TAY 

LDA 89 

STA CASH,Y 

STA CASH+1,Y 

LDX 835 
SELL-OFF LDA MHO 

CMP PNUM 

BNE SELL-DN 

LDA 8$FF 

STA HH0,X 

LDA RANTAB,X 

STA COST.X 

DEC REFTAB,X 
SELL-DN DEX 

BPL SELL-OFF 

JSR FORMDOL 

JSR WAITKEY 

LDX 88 

LDY 83 
FNM LDA ONBRD,Y 

BEQ FNM2 

INX 
FNW2 DEY 

BPL FNM 

CPX 82 

BCC SHO-MIN 

JMP NOM 
i 
;Show the winner 



; linefeeds 

;get plyr 8 
;save it 

make 8 to 
jreMove 

;who was it? 

MES ; 'gone' 
;plyr 8 again 
jx2 

;zap his/her 
jcash 



jsell props 
,x ;back to 
;the bank 

;$FF = free 
jproperty 

jnew cost 

is half price 

;what a 
; bargain! 

jshow $ line 
; pause 
; is anyone 
;left-if so 
;s/he is 
;the winner 



;LT 2 neans 
;a winner 
jstill going 



SHO-MIN JSR PUTCR j linefeed 

LDY 83 

SMI LDA ONBRD.Y ;get plyr's 8 

BNE GMN 



3658 




DEY 




3669 




BPL SMI 




3679 


GMN 


JSR SHO-NAME ; winner's naMe 


3688 




PRINT MINNER ;' Wins' 


3698 




JSR GETCH 


jget a key 


3788 




JMP FAKE 


; restart 


3718 


, 






3728 


;Get a RND 8 between 1 and Ace 


3738 


, 






3748 


GET 


-RND STA RNUM ;save 


3758 


RND 


LDA RANDOM 




3768 




AND 8$7F 


; 8-127 


3778 




BEQ RND 


j no e 


3788 




CMP RNUM 


;LT A? 


3798 




BEQ RNDO 


;yup 


3888 




BCS RND 


; overs 


3818 


RNDO 1 


;done 


3828 


i 






3838 


;Make the randon property 


3849 


;value table. Values are bet- 


3858 


jween 1/2 and full price. 


3868 


i 






3878 


MAKE-RAN LDY 835 ; 36 props 


3888 


HK1 


LDA COST,Y 


; if 8 no 


3898 




BEQ NORAN 




3988 




LSR A 


jdiv by 2 


3918 




STA VALUE 


jsave it 


3928 




JSR GET-RND 


j get rand 8 


3938 




CLC 


;LT value 


3948 




ADC VALUE 


;add to 1/2 


3958 


NORAN 


3968 




DEY 


jnext prop 


3978 




BPL MK1 




3988 




LDA DISFLAG 


jif forced 


3999 




BEQ MKO 


jsale, just 


4888 




LDY 835 


jMake prices 


4818 


MK2 


LDA C0ST,Y 


;l/2 price 


4828 




LSR A 




4838 




STA RANTAB, 


r 


4949 




DEY 




4956 




BPL MK2 




4969 


MKO 


RTS 




4979 


; 






4689 


;Show a Property 


4999 


, 






4186 


SHOPROP INC PAUSE? ; fast print 


4116 




PRINT BOX 


;print 


4126 




POSITION 


7,0 joutline 


4138 




LDA CPROP 


jcurr. prop 


4148 




ASL A 


jget naMe 


4158 




TAX 


jx2 for 


4166 




LDA PRPTAB+1,X ;offset froM 


4176 




TAY 


j table 


4188 




LDA PRPTAB, 


K jA=hi Y=lo 


4198 




JSR INVPROP 


1 inverse 


4288 




POSITION 


3,1 j naMe 


4216 




LDX 88 


jX=lo cost 


4228 




LDY CPROP 




4236 




LDA C0ST,Y 


jA = hi 


4246 




JSR PRNUM 


jshow cost 


4256 




LDA 824 


jMove cursor 


4266 




STA XPOS 




4278 




LDX 86 




4288 




LDY CPROP 


jget prop8 


4298 




LDA RANTAB, 


1 jsale price 


4386 


SPQ 


JSR PRNUM 


jshow it 


4316 




LDY CPROP 


jget iMprove- 


4326 




LDA IMP,Y 


jMent level 


4336 




ORA 8$18 


j for screen 


4346 




STA GR8MEM+72 ; show it 


4358 




POSITION 


24,2 


4368 




LDY CPROP 


jsee if doubl 


4378 




LDA XREF,Y 




4386 




BNE SPY 


j yes 


4398 




PRINT NO 


j no 


4400 




JMP SPO 


JSkip 


4418 


SPY 


PRINT YES 




4428 


SPO 


POSITION 


5,3 


4438 




LDY CPROP 


;who owns it 


4448 




LDA MHO,Y 




4458 




STA SVY 


j save it 



4468 
4478 
4488 
4498 
4588 
4516 
4528 
4538 
4548 
4558 
4568 
4578 
4588 
4596 
4688 
4618 
4628 
4636 
4646 
4656 
4666 
4678 
4688 
4698 
4788 
4716 
4726 
4736 
4748 
4758 
4766 
4778 
4788 
4798 
4888 
4816 
4828 
4838 
4848 
4858 
4866 
4878 
4888 
4899 
4999 
4916 
4928 
4938 
4948 
4956 
4968 
4978 
4986 
4998 
5668 
5816 
5828 
5636 
5648 
5856 
5866 
5878 
5888 
5898 
5188 
5118 
5126 
5138 
5148 
5158 
5166 
5176 
5188 
5198 
5299 
5219 
5228 
5236 
5248 
5258 
5268 



LDA 
STA 
LDA 
BEQ 
TAX 
LDA 
CMP 
BNE 
LDA 
CLC 
ADC 
STA 
SHV LDA 
LDX 
JSR 
LDA 
STA 
JSR 
LDY 
LDA 
TAY 
JSR 
DEC 
LDX 
LDY 
JMP 



RENT,Y 
VALUE 
XREF,Y 
SHV 

MH0,X 
SVY 
SHV 
RENT,X 

VALUE 

VALUE 

VALUE 

88 

PRNUM 

824 

XPOS 

GETSCR 

CPROP 

MHO.Y 

SHO-NAK 

PAUSE? 

88 

84 

POSIT 



jget Tent" 

;- fee 

; double? 

j no 

j who owns doubl? 

j owner 

jsaMe as ME? 

jno 

j yes so 

j rent is More 



jshow rent 
jA=hi,X=lo 



jscreen loc 
j prop 8 
j owner? 
jget naMe 

jslow print 
jposition 
j cursor 
j* exit 



jShow a player's nane 
jY=player 8 to show 

SHO-NAME LDA X9,Y jget right 
STA L j nane 
LDA 8 >NAMEBUF ,'Via Offset 
STA L+l 



CPY 8$FF 
BNE SNM6 
LDA 8 <NA 
STA L 
LDA 8 >NA 
STA L+l 
SNM6 LDA L 
LDY L+l 
JMP EPRINT 



j is it no one? 
j no soneone 
j 'none' 



jprint nane 



o 



Unitialize gane tables 



INITAB LDY 835 

IT1 LDA 8$FF 
STA HHO,Y 
LDA 88 
STA IMP,Y 
DEY 

BPL IT1 
LDY 8115 

IT2 LDA RENT0RG,Y 
STA RENT,Y 
DEY 

BPL IT2 
LDY 86 

MVSET LDA $E888,Y 
STA MSET,Y J 
LDA $E168,Y J 
STA M5ET+256, 
LDA $E288,Y 
STA MSET+512, 
LDA $E388,Y 
STA MSET+768, 
INY 

BNE MVSET 
LDY 87 ; 
LDA 8$FF J 

ASET STA MSET+584 
DEY 

BPL ASET 
LDA 8 <FAKE 
STA DOSINI 
LDA 8 >FAKE 
STA D05INI+1 
LDA 8$C6 
STA NMIEN 
RTS 



36 locations 
$FF = no 
owner 
8 = no 
inproveMent 



copy all 
j preset 
tables to 
working tables 

download 

ROM 
character 
set 
Y 

Y 

Y 



all this to 
define a 
,Y jblock 
cursor for 
nane screen! ! ! 
SYSTEM RESET 
restarts 
the gane 

enable DLI's 



LISTING 4: ASSEMBLY 



0100 

one 

8128 
8138 
8148 
8158 
8168 
8178 
8188 
8198 
8288 
8218 
8228 
8238 
8248 
8258 
8268 
8278 
8288 
8298 
8388 
8318 
8328 
8338 
8348 
8358 
8368 
8378 
8388 
8398 
8488 
8418 
8428 
8438 
8448 
8458 
8468 
8478 
8488 
8498 
8588 
8518 
8528 
8538 
8548 
8558 
8568 
8578 
8588 
8598 
8688 
8618 
8628 
8638 
8648 
8658 
8668 
8678 
8688 
8698 
8788 
8718 
8728 
8738 
8748 
8758 



; SAW EBD : CAPITALS . H65 



CAPITAL! 
redefined char, 
set for the MAP 

by Barry Kolbe 



; includes Most of a character 
;set for ANTIC node 4. 



.BYTE 

• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

• BYTE 

• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

• BYTE 
.BYTE 
.BYTE 
.BYTE 



$00, $90, 
$00, $08, 
$FD,$F5, 
$D7,$D7, 
$7F,$5F, 
$D7,$D7, 
$FD,$F7, 
$DF,$DF, 
$7F,$DF, 
$F7,$F7, 
$D5,$D5, 
$D7,$D7, 
$57, $57, 
$D7,$D7, 
$FF,$FA, 
$EB,$EB, 
$FF,$AF, 
$FF,$EF, 
$55, $55, 
$55, $55, 
$55, $55, 
$69, $55, 
$FF,$EA, 
$FE,$FE, 
$FF,$AB, 
$BF,$BF, 
$FF,$AB, 
$EA,$EB, 
$FF,$EA, 
$AB,$EB, 
$FF,$FE, 
$EA,$FF, 
$FF,$BF, 
$AB,$EB, 
$DS,$DF, 
$DF,$DF, 
$57,$F7, 
$F7,$F7, 
$FF,$EA, 
$EB,$EB, 
$FF,$FF, 
$FF,$EF, 
$5F,$5F, 
$5F,$5F, 
$F5,$F5, 
$FS,$F5, 
$EF,$BF, 
$EE,$BF, 
$FF,$FF, 
$FF,$FF, 
$88,$FF, 
$FF,$FF, 



$88, $88 
$88, $88 
$D7,$D7 
$FS,$FD 
$D7,$D7 
$5F,$7F 
$DF,$DF 
$F7,$FD 
$F7,$F7 
$DF,$7F 
$D7,$D7 
$D5,$D5 
$D7,$D7 
$57, $57 
$EA,$EB 
$EA,$FA 
$AF,$EF 
$AF,$AF 
$55, $55 
$55, $55 
$55, $69 
$55, $55 
$EE,$FE 
$FE,$FA 
$BB,$BF 
$BF,$AF 
$EB,$EA 
$EB,$AB 
$EB,$AB 
$EB,$EA 
$EA,$EB 
$EA,$FE 
$AB,$FF 
$AB,$BF 
$DF,$DF 
$DF,$D5 
$F7,$F7 
$F7,$57 
$EB,$EB 
$EA,$EA 
$FF,$FF 
$AF,$AF 
$5F,$5F 
$5F,$5F 
$F5,$F5 
$F5,$F5 
$FF,$FB 
$FE,$FF 
$FF,$FF 
$FF,$FF 
$FF,$FF 
$FF,$FF 



8768 


.BYTE 


8778 


.BYTE 


8788 


.BYTE 


8798 


.BYTE 


8888 


.BYTE 


8818 


.BYTE 


8828 


.BYTE 


8838 


.BYTE 


8848 


.BYTE 


8858 


.BYTE 


8868 


.BYTE 


8878 


.BYTE 


8888 


.BYTE 


8898 


.BYTE 


8988 


• BYTE 


8918 


.BYTE 


8928 


.BYTE 


8938 


.BYTE 


8948 


.BYTE 


8958 


.BYTE 


8968 


.BYTE 


8978 


.BYTE 


8988 


.BYTE 


8998 


.BYTE 


1888 


.BYTE 


1818 


.BYTE 


1828 


.BYTE 


1838 


.BYTE 


1848 


.BYTE 


1858 


.BYTE 


1868 


.BYTE 


1878 


.BYTE 


1888 


.BYTE 


1898 


.BYTE 


1188 


.BYTE 


1118 


.BYTE 


1128 


.BYTE 


1138 


.BYTE 


1148 


.BYTE 


1158 


.BYTE 


1166 


.BYTE 


1178 


.BYTE 


1188 


.BYTE 


1198 


.BYTE 


1288 


.BYTE 


1218 


.BYTE 


1228 


.BYTE 


1238 


.BYTE 


1248 


.BYTE 


1258 


.BYTE 


1268 


.BYTE 


1278 


.BYTE 


1288 


.BYTE 


1298 


.BYTE 


1388 


.BYTE 


1318 


.BYTE 


1328 


.BYTE 


1338 


.BYTE 


1348 


.BYTE 


1358 


.BYTE 


1368 


.BYTE 


1378 


.BYTE 


1388 


.BYTE 


1398 


.BYTE 


1488 


.BYTE 


1418 


• BYTE 


1428 


.BYTE 


1438 


.BYTE 


1448 


.BYTE 


1458 


.BYTE 


1468 


.BYTE 


1478 


.BYTE 


1488 


.BYTE 


1498 


.BYTE 


1588 


• BYTE 


1518 


.BYTE 


1528 


.BYTE 


1538 


.BYTE 


1548 


.BYTE 


1558 


.BYTE 


1568 


.BYTE 



$88,$88,$FF,$FF 
$FF,$FF,$FF,$FF 
$B8,$8e,$88,$FF 
$FF,$FF,$FF,$FF 
$88, $88, $88, $88 
$FF,$FF,$FF,$FF 
$88, $88, $88, $88 
$8B,$FF,$FF,$FF 
$88, $88, $88, $88 
$88,$88,$FF,$FF 
$88, $88, $88, $88 
$8e,$88,$88,$FF 
$C8,$C8,$F8,$F8 
$FC,$FC,$FF,$FF 
$F8,SF8,$F8,$Fe 
$FC,$FC,$FC,$FC 
$83,$B3,$8F,$8F 
$3F,$3F,$FF,$FF 
$8F,$8F,$BF,$eF 
$3F,$3F,$3F,$3F 
$FF,$FF,$FC,$FC 
$FC,$F8,SF8,$CB 
$FC,$FC,$FC,$FC 
$F8,$F8,$F8,$F8 
$FF,$FF,$BF,$BF 
$AF,$2F,$2B,$BB 
$BF,$BF,$BF,$BF 
$2F,$2F,$2F,$2F 
$FF,$FF,$FF,$FF 
$FF,$FF,$FF,$AA 
$FF,$FF,$FF,$FF 
$FF,$FF,$AA,$AA 
$FF,$FF,$FF,$FF 
$FF,$AA,$AA,$88 
$BF,$BF,$BF,$BF 
$BF,$BF,$BF,$BF 
$A8,$A8,$8B,$8B 
$88, $88, $88, $88 
$FE,$FA,$F8,$F8 
$C8,$C8,$C8,$C8 
$CF,$CF,SCF,$CF 
$CF,$CF,$3F,$3F 
$3F,$3F,$3F,$3F 
$FF,$FF,$FF,$FF 
$FF,$FF,$FF,$FF 
$3F,$3F,$3F,$3F 
$FF,$FF,$FF,$FF 
$FF,$FF,$3F,$BF 
$F8,$F8,$F8,$F8 
$F8,$C8,$C8,$88 
$FC,$FC,$FC,$FC 
$FC,$FC,$FC,$FC 
$83, $83, $83, $03 
$8F,$8F,$eF,$eF 
$3F,$3F,$3F,$3F 
$FF,$FF,$FF,$FF 

$c8,$ce,$ce,$ca 

$F8,$F8,$FC,$FF 
$83, $83, $83, $83 
$BF,$8F,$3F,$FF 

$ce,$ce,$ce,$CB 
$ce,$c8,$ce,$ce 

$83, $83, $83, $83 
$83, $83, $83, $83 
$88, $88, $88, $83 
$83,$8F,$8F,$3F 
$F8,$FC,$FF,$FF 
SFC,$FF,$FC,$FC 
$F8,$FC,$FC,$FC 
$FC,$FC,$FC,$FB 

SFc.SFB.Sce.sce 

$88, $88, $88, $88 
$FC,$F8,$F8,$FB 
$C8,$C8,$CB,$CB 

$ce,$c8,$ce,$c8 

$F8,$F8,$FC,$FC 
$C8,$C8,$F8,$F8 
$F8,$FC,$FC,$FC 
$FC,$FC,$FC,$F8 
$F8,$F8,$C8,$Ce 
$FC,$F8,$C8,$FB 



1578 


.BYTE 


1588 


.BYTE 


1598 


.BYTE 


1688 


.BYTE 


1618 


.BYTE 


1628 


.BYTE 


1638 


.BYTE 


1648 


.BYTE 


1658 


.BYTE 


1668 


.BYTE 


1678 


.BYTE 


1688 


.BYTE 


1698 


.BYTE 


1788 


.BYTE 


1718 


.BYTE 


1728 


.BYTE 


1738 


.BYTE 


1748 


.BYTE 


1758 


.BYTE 


1768 


.BYTE 


1778 


.BYTE 


1788 


.BYTE 


1798 


.BYTE 


1888 


.BYTE 


1818 


.BYTE 


1828 


.BYTE 


1838 


.BYTE 


1848 


.BYTE 


1858 


.BYTE 


1868 


.BYTE 


1878 


.BYTE 


1888 


.BYTE 


1898 


.BYTE 


1988 


.BYTE 


1918 


.BYTE 


1928 


.BYTE 


1938 


.BYTE 


1948 


• BYTE 


1958 


.BYTE 


196B 


.BYTE 


1978 


.BYTE 


1988 


.BYTE 


1998 


.BYTE 



SFC,$FC,$FF,$FF 

$CB,$ee,$88,$8e 
$ce,$ce,$C8,$ce 

$8B,$8B,$8B,$8B 
$8B,$8B,$8F,$8F 
$8F,$8F,$8F,$3F 
$3F,$3F,$FF,$FF 
$88, $88, $83, $83 
$83,$BF,$8F,$3F 
$8e,$38,$BC,$BF 
$2F,$2F,$8B,$8B 
$8F,$8F,$8F,$CF 
$FF,$FF,$FF,$FF 
$BC,$3C,$FB,$FF 
$FF,$FF,$FF,$FF 
$88, $88, $88, $88 

$FC,$FB,$ee,$ea 

SFF,$FF,$FF,$FF 
$FF,$F8,$C8,$C8 
$F8,$C8,$8e,$88 
$83, $08, $08, $98 
$FF,$FF,$FF,$FF 
$FF,$FF,$FF,$FC 
$FF,$BF,$BF,$BF 
$AF,$2F,$2B,$8A 
$3F,$3F,$3F,$3F 
$3F,$3F,$FF,$FF 
$FC,$FC,$F8,$F8 
$FC,$FC,$FF,$FF 
$88, $88, $88, $88 
$83,$8F,$3F,$FF 
$88,$83,$8F,$3F 
$FF,$FF,$FF,$FF 
$88, $88, $88, $88 
$B3,$8F,$8F,$3F 
$F8,$F8,$FB,$F8 
$C8,$C8,$C8,$C8 
$AA,$AA,$ee,$88 
$88, $88, $88, $88 
$BA,$BA,$88,$e8 
$88, $88, $88, $88 
$82, $82, $88, $88 
$88, $88, $88, $88 



LISTING 5: ASSEMBLY 



8188 
8118 
8128 
8138 
8148 
8158 
8168 
8178 
8188 
8198 
8288 
8218 
8228 
8238 
8248 
8258 
8268 
8278 
8288 
8298 
8388 
8318 
8328 
8338 
8348 
8358 
8368 



SAUE8D:CAPITAL4.M65 





CAPTIAL 


i 




# 
t 


PMG 


& U.S. 


a. 


MOP 


1 
1 


by: 


Barry 


Kolbe 


1 










I 



Set up PMG 

SETPMG LDA 8S3E ; enable PMG 

STA SDMCTL 

LDA ttl 

STA GPRIOR 

LDX 83 

LDA 88 

STA BDL 
PLS STA SIZEP8.X 

DEX 

BPL PLS 

LDA nz 

STA GRACTL 

LDA 8 >PMB 

STA PMBASE 



;set priority 
;set size to 8 



;set PMG base 



o 



0370 


; 






0388 


;m 


itially put Players (Tokens] 


0398 


jbeneath the DICE 


8488 


, 






8418 




LDX 83 




8428 


PP5 


LDA 8S78 


{vertical pos 


8438 




STA PY8,X 




8448 




LDA IXP,X 


; initial horz 


8458 




STA PX8,X 


;position 


8468 




DEX 




8478 




BPL PPS 




8488 


• 






8498 


;5et Token Colors 


8588 


; 






8518 




LDX 83 




8528 


PCI 


LDA PCLR,X 




8538 




STA PC0LR8,X 




8548 




LDA no 


jail begin at 


8558 




STA PTHP6,X 


; "Stock Market' 


8568 




DEX 




8578 




BPL PCI 




8588 




LDA 80 


jplayer 1 


8598 




STA PNUH 


;starts 


8688 


1 






8618 


RSTPMG LDA 8$3E 


; reset PMG 


8628 




STA SDMCTL 


jfor MAP 


8638 




LDA til 


jscreen 


8648 




STA GPRIOR 




8658 




RT5 




8668 


; 






8678 


;ln 


itial X Positions of Tokens 


8688 


J 






8698 


IXP 


.BYTE 560, $68,: 


8788 


; 






8718 


; Put P/M on screen 


8728 


i 






8738 


SHOMPM LDn ONBRD 


;is '1' alive? 


8748 




BEQ Jl 


;nope 


8758 




JSR DEFP8 


JShOW "l" 


8768 


Jl 


LDA ONBRD+1 


;'2" on? 


8778 




BEQ J2 


;etc. 


8788 




JSR DEFP1 




8798 


J2 


LDA 0NBRD+2 




8888 




BEQ J3 




8818 




JSR DEFP2 




8828 


J3 


LDA ONBRD+3 




8838 




BEQ J4 




8848 




JSR DEFP3 




8858 


J4 


RTS 




8868 


i 






8878 


{Entry Point Mhi 


le Playing 


8888 


i 






8898 


FAKE CLD 


;clear decimal 


8988 




LDX 8SFF 


; reset stack 


8918 




TXS 




8928 




JSR INITAB 


;redo tables 


8938 




JSR SMDOFF 


iinit snd 


8948 




JSR INTRO 


;show intro 


8958 




JSR SETPMG 


jset up PMG 


8968 




JSR CLRPMG 


J clear PMG men 


8978 




JSR F0RMD0L 


;show $ line 


8988 




JSR RESROL 


;DICE nesg 


8998 




JSR SHMPUR 


jshow 'free' 


1888 


; 






1818 


;Entry point of 


MAP Moves 


1028 


i 






1838 


ENTRY LD0 8 <DL 


.display list 


1848 




STA SDLSTL 




1858 




LDA tt >DL 




1868 




STA SDLSTL+1 




1878 




LDA tt >CSET 


char, set 


1888 




STA CHBAS 




1098 




JSR RSTPMG 


reset PMG 


1108 




LDX tt4 


get MAP 


1118 


MCI 


LDA MAPCL.X 


colors 


1128 




STA C0L0R8,X 




1138 




DEX 




1148 




BPL MCI 




1158 




LDA tte 


DLI cntr 


1168 




STA BDL 




1178 




STA AMOUNT+1 


; safety 



1188 




LDA 


tt <DLI 


;set up DLI 


1198 




STA 


UDSLST 




1288 




LDA 


tt >DLI 




1218 




STA 


UDSLST+1 




1228 




JSR 


SHOMPM 


;put tokens on 


1238 


i 








1248 




LDX 


PNUM 


;get plyr 8 


1258 




LDA 


ONBRD, X 


;alive? 


1268 




BNE 


MU1 


;yes 


1278 




J MP 


NXP 


;no do next 


1286 


MU1 


LDY 


tie 


;put plyr nane 


1298 




LDA 


X9,X 


;on screen 


1388 




STA 


SCR 




1318 




LDA 


tt >NAMEBUF 


1328 




STA 


SCR+1 




1338 


GNL 


LDA 


C5CR3 ,Y 


;get length 


1348 




BEQ 


GNE 


;of nane 


1358 




INY 






1368 




BNE 


GNL 




1378 


GNE 


STY 


5VY 


;save Y 


1388 




LDA 


828 


;28 bytes/line 


1398 




SEC 




j subt f r-OM 26 


1488 




SBC 


SMY 




1418 




LSR 


A 


;l/2 


1428 




TAX 




;use as index 


1438 




LDY 


819 


;e out line 


1448 




LDA 


86 


;26 bytes 


1458 


GNC 


STA 


PLRN,Y 




1468 




DEY 






1478 




BPL 


GNC 




1488 




INY 






1498 




LDA 


859 


; put ' [81 ' 


1508 




STA 


PLRN-4.X 


;on screen 


1518 




LDA 


861 




1528 




STA 


PLRN-2,X 




1538 




LDA 


PNUM 


;get plyr 8 


1548 




CLC 






1558 




ADC 


8511 


; for screen 


1568 




STA 


PLRN-3,X 


;show 8 


1578 


GNP 


LDA 


ISCR3,Y 


;next the na»e 


1588 




BEQ 


GNU 


;done on 8 


1596 




JSR 


ASC2IC 


;INT code 


1686 




STA 


PLRN.X 


;show char 


1618 




INK 






1628 




INY 






1636 




BNE 


GNP 




1646 


GNU 


LDA 


853 


; ■ UP ■ 


1658 




STA 


PLRN+1,X 




1668 




LDA 


848 




1676 




STA 


PLRN+2,X 




1688 


see 


LDA 


CONSOL 


;wait for 


1698 




CMP 


83 


; OPTION 


1786 




BNE 


sec 




1716 




JSR 


ROLDIC 


;roll 'en 


1728 


; 








1738 


jMove the Tokens 




1746 


; 








1756 




LDA 


PNUM 


plyr 8 


1768 




ASL 


A 


x2 for table 


1778 




TAX 






1786 




LDA 


ETAB,X 


erase table 


1796 




STA 


EJ5R+1 




1868 




LDA 


ETAB+1,X 




1818 




STA 


EJ5R+2 




1828 




LDA 


DTAB,X 


define table 


1838 




STA 


DJSR+1 




1848 




LDA 


DTAB+1,X 




1858 




STA 


DJSR+2 




1866 


i 








1878 


MAIN DEC 


SQRS 


8 to nove 


1888 


EJSR JSf 


ERSP8 


erase token 


1898 




LDX 


PNUM 


plyr 8 


1966 




INC 


PTHP8,X 


next square 


1916 




LDA 


PTHP8,X 


all the way 


1926 




CMP 


836 


around yet? 


1938 




BNE 


MOK 


no 


1948 




LDA 


86 


yes reset to 6 


1958 




STA 


PTHPB,X 




1966 


M0K 


LDA 


PTHP8,X 


find new 


1978 




TAY 




position of 


1988 




LDA 


PTHX,Y 


token (Player) 



1996 




STA 


PX6,X 




2866 




LDA 


PTHY,Y 




2818 




STA 


PY8,X 




2826 


DJSR . 


;show token 


2838 




JSR 


BEEP 


{Make a sound 


2848 




LDX 


PNUM 


;plyr 8 


2858 




LDA 


PTHP6,X 


;see if on $ 


2866 




BNE 


MKK 


;no 


2676 




LDX 


86 


; scroll Message 


2688 




JSR 


MESSAG 




2898 




LDA 


812 


;add 12G to 


2168 




LDY 


PNUM 


; player 


2118 




JSR 


ADD 




2126 


MKK 


JSR 


MAIT 


;wait a little 


2136 




JSR 


SHHPRP 


{ show natte 


2146 




LDA 


SQRS 


;done Moving? 


2158 




BNE 


MAIN 


;no 


2166 




LDX 


PNUM 


; get location 


2176 




LDA 


PTHP6,X 




2186 


i 








2196 


jdont wait on specials 


2266 


; 








2216 




LDY 


83 




2226 


SCM 


CMP 


5PLC,Y 


J iS it LUCK 


2236 




BEQ 


NOW 


; HILTON, TAX 


2246 




DEY 




;CAP GAINS 


2258 




BPL 


SCM 




2266 


, 








2276 


;This is a square that requires 


2288 


;a 


transaction, 


so we remove 


2298 


;the P/M and call the TRANS 


2388 


;routine. Then 


we restore the 


2318 


;MAP screen display and loop. 


2328 


i 








2338 




JSR 


HAITKEY 


{wait or key 


2348 




JSR 


CLRPMG 


; reMove PMG 


2358 




JSR 


TRANS 


;go to TRANS 


2366 


; 








2376 


;N0M is 


entry spot froM T_0K 


2386 


a 








2396 


NOW 


JSR 


RESROL 


; reset ROLL DICE 


2466 




LDX 


PNUM 


;plyp 8 


2416 




LDA 


PTHP8,X 


; location 


2426 




BEQ 


COV 


;if it is 5 


2436 




JSR 


CKMES 


{other specials? 


2446 


COV 


JSR 


SHMPUR 


;show nane 


2456 


NXP 


INC 


PNUM 


;next plyr 


2468 




LDA 


PNUM 


;only 8-3 


2478 




AND 


83 




2488 




STA 


PNUM 


;next person's 


2498 




JMP 


ENTRY 


j Move 


2566 


i 








2516 


j Clear PMG Menory 


2526 


i 








2536 


CLRPMG LDX 86 




2546 




TXA 






2558 


CP1 


STA 


P8,X 




2566 




STA 


P1,X 




2576 




STA 


P2,X 




2586 




STA 


P3,X 




2596 




INX 






2666 




BNE 


CP1 




2616 




LDX 


83 


;put plyrs off 


2626 


CP2 


STA 


HP0SP6,X jscreen 


2636 




DEY 






2646 
2656 




BPL 
RTS 


CP2 





o 



2666 ; 

2678 ;Four routines to define 
2688 jeach of the four players 
2698 {vertically & horizontally 

2718 DEFP8 LDX 86 

2728 LDY PY8 

2738 DF8 LDA P8DEF,X {Vertically 

2748 STA P6,Y 

2758 INY 

2766 INX 

2776 CPX 813 

2788 BNE DF8 

2798 LDA PXB 



;def ine 
jplayer 6 



land set its 
; horizontal 



2888 
2818 
2828 
2838 
2848 
2858 
2868 
2878 
2888 
2898 
2988 
2918 
2928 
2938 
2948 
2958 
2968 
2978 
2988 
2998 
3888 
3818 
3828 
3838 
3848 
3858 
3868 
3878 
3888 
3898 
3188 
3118 
3128 
3130 
3148 
3158 
3168 
3178 
3188 
3198 
3288 
3218 
3228 
3238 
3248 
3258 
3268 
3278 
3288 
3298 
3388 
3318 
3328 
3338 
3348 
3358 
3368 
3378 
3388 
3398 
3488 
3418 
3428 
3438 
3448 
3458 
3468 
3478 
3488 
3498 
3588 
3518 
3528 
3538 
3548 
3558 
3568 
3578 
3588 
3598 
3688 



; position 



STA HP05P8 
RTS 

DEFP1 LDX «8 

LDV PYB+1 
DF1 LDA P1DEF.X 

STA P1,Y 

INY 

INK 

CPX 813 

BNE DFi 

LDA PX8+1 

STA HP0SP8+1 

RTS 

DEFP2 LDX 08 

LDV PYO+2 
DF2 LDA P2DEF,X 

STA P2,Y 

INY 

INK 

CPX 813 

BNE DF2 

LDA PXB+2 

STA HPOSPB+2 

RTS 

DEFP3 LDX tte 

LDY PYO+3 
DF3 LDA P3DEF.X 

STA P3,Y 

INY 

INX 

CPX 813 

BNE DF3 

LDA PXO+3 

STA HPOSPB+3 

RTS 

;Four routines to erase each 
;of the four players 

ERSPB LDY PYB ;get vert. 



;position 
; erase the 
;13 bytes 



LDA 88 
LDX 812 
EPB STA P8,Y 
INY 
DEX 

BPL EP8 
RTS 

ERSP1 LDY PY8+1 

LDA 88 

LDX 812 
EP1 STA P1,Y 

INY 

DEX 

BPL EP1 

RTS 

ERSP2 LDY PYO+2 

LDA 88 

LDX 812 
EP2 STA P2.Y 

INY 

DEX 

BPL EP2 

RTS 
i 
ERSP3 LDY PYB+3 

LDA 88 

LDX 812 
EP3 STA P3,Y 

INY 

DEX 

BPL EP3 

RTS 



;Table of Erase Players Routines 
ETAB .WORD ERSPB 



3618 
3628 
363B 
3648 
3658 
3668 
3678 
3688 
3698 
3788 
3718 
3728 
3738 
3748 
3758 
3768 
3778 
3788 
3798 
38B8 
3818 
3828 
3838 
3848 
3858 
3868 
3878 
3888 
3898 
398B 
3918 
3928 
3938 
3948 
3958 
3968 
3978 
3988 
3998 
4888 
4818 
4828 
4838 
4848 
4858 
4868 
4878 
4888 
4B98 
4188 
4118 
4128 
4138 
414B 
4158 
4168 
417B 
4188 
4198 
4288 
4218 
4228 
4238 
4248 
4258 
4268 
4278 
4288 
4298 
4388 
4318 
4328 
4338 
4348 
4358 
4368 
4378 
4388 
4398 
44B8 
4418 



. HORD ERSP1 
. WORD ERSP2 
.WORD ER5P3 



;Table of Define Player Routines 

DTAB .WORD DEFPfl 
.WORD DEFP1 
.WORD DEFP2 
.WORD DEFP3 

;Change Character Sets in DLI 



DLI PHA 
LDA 
BNE 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
INC 
PLA 
RTI 

BL2 CMP 
BNE 
LDA 
STA 
STA 
LDA 
STA 
INC 
PLA 
RTI 

BL3 LDA 
STA 
STA 
PLA 
RTI 



BDL ;which DLI? 

BL2 ;not 1st 

8 >M5ET ; switch to 

CHBASE ;our ROM set 

MSYNC 

8S82 

C0LPF2 

8$DA 

C0LPF1 

8$E6 

C0LPF3 

BDL 



; change colors 
jblue 

;bright green 

;0rng Green 

;next DLI 

jroutine 



81 jnext DLI? 
BL3 ;no 
8M0NEY_CLR ; color 



MSYNC 

C0LPF2 

88 

COLBK 

BDL 



; f or $ line 

jbackgrnd 
;scan line 
;next DLI 



8M0NEY-CLR JbottOM 

HSYNC jail one 
COLBK ;color 



;R0ll DICE With OPTION 
J Stop then With SELECT 



ROLDIC 
STA 
JSR 
LDX 
LDY 

DR1 LDA 
STA 
INX 
INY 
CPY 
BNE 
LDX 

DR2 LDA 
STA 
INX 
INY 
CPY 
BNE 
LDX 

DR3 LDA 
STA 
INX 
INY 
CPY 
BNE 



LDA 88 
SQRS 
GETRND 
80 
88 

CL),Y 
DICPOS- 



83 
DR1 
88 

(LJ,Y 
DICPOS+ 



;sqrs=8 to Move 

;get randoM 8 
;now show it 
;on DIE 8 1 
;Move 3 bytes 
$27, X ;to 
;screen;x is 
;of fset 



;MO«e 3 More 
;1 line down 
1,X 



86 
DR2 
88 

CLJ,Y 
DICP05+ 



;& 3 More 

$29, X ;another 
;line down 



89 
DR3 



JSR GETRND ;now do 2nd 
LDY 88 ;DIE 
LDX 85 jMove x over 
DTI LDA CL1.Y 

STA DICP0S-$27,X 

INX 

INY 

CPY 83 ;3 bytes froM 



4428 




BNE 


DTI ;dice definition 


4430 




LDX 


87 jtable 


4440 


DT2 


LDA 


CLJ ,Y 


4450 




STA 


DICP0S-1,X 


4460 




INX 




4478 




INY 




4488 




CPY 


86 ;3 More 


4498 




BNE 


DT2 


4500 




LDX 


85 ;next line 


4518 


DT3 


LDA 


CLJ , Y 


4528 




STA 


DICP05+$29,X 


4538 




INX 




4548 




INY 




4558 




CPY 


89 


4560 




BNE 


DT3 


4570 




STA 


CONSOL ;clear CONSOL 


4580 




JSR 


MAIT 


4598 




LDA 


CONSOL ;wait for 


4688 




CMP 


85 ; SELECT 


4618 




BNE 


ROLDIC ;keep rollin' 


4628 




RTS 




4638 


i 






4648 


;Get RandoM DICE Throws 


4658 


i 






4668 


GETRND LDA RANDOM ;only 8-5 


4678 




AND 


87 


4688 




CMP 


86 


4698 




BCS 


GETRND 


4788 




TAX 


;current throw 


4718 




CLC 




4728 




ADC 


SQRS ;8-5 


4738 




STA 


SQRS 


4748 




INC 


SQRS jl-6 


4758 




TXA 




4768 




ASL 


A ;x2 for table 


4778 




TAX 




4788 




LDA 


RTAB,X ;get right 


4798 




STA 


L ;bytes for 


4880 




LDA 


RTAB+l.X ;DICE 


4818 




STA 


L+l 


4828 




RTS 




4838 


i 






4848 


;Wa 


it a 


few jiffies 


4858 


; 






4868 


WAIT LDA 


4878 




STA 


RTCLOK 


4880 


MA 


LDA 


RTCLOK 


4890 




CMP 


86 


4900 




BCC 


MA 


4910 




RTS 




4928 


) 






4938 


;Ma 


it for 8 seconds or until 


4948 


;a 


key is pressed. 


4958 


; 






4968 


MAITKE 


LDX 8SFF ;clear CH 


4978 




5TX 


CH 


4988 




LDA 


CH ;read keyboard 


4998 




CMP 


8$FF ;unitl released 


5000 




BNE 


MAITKEY 


5018 




LDA 


88 ;set clock 


5828 




STA 


RTCLOK 


5038 




STA 


RTCLOK-1 


5848 


WK 


LDA 


CH ;key pressed? 


5058 




CMP 


8$FF 


5868 




BNE 


MTDON j yes-exit 


5878 




LDA 


RTCLOK-l ;no see if 


5888 




CMP 


82 JtiMe is up 


5898 




BCC 


MK 


5188 


MTDON 


5110 




RTS 




5128 


i 






5130 


;ln 


itia] 


ixe Sound Registers 


5148 


i 






5158 


SNDOFF LDX 87 


5168 




LDA 


88 


5178 


SN1 


STA 


AUDF1.X 


5188 




DEX 




5198 




BPL 


SN1 


5288 




STA 


$D208 


5218 




RTS 




5228 


i 







o 



5238 


[Make a 


BEEP sound 


5248 


1 






5258 


BEEP LDA 8$85 




5268 


STA 


AUDF1 




5278 


LDA 


8$A8 




5288 


STA 


AUDF1+1 




5238 


J5R 


WAIT 




5388 


LDA 


no 




5318 


STA 


AUDF1 




5328 


5TA 


AUDF1+1 




5338 


HT5 






5348 


* 






5358 


;Scroll 


Messages 


for special 


5368 


; Properties . K = 


nsg s 


5378 


; 






5388 


HESSAG 


.DA SCTAB 


,K ;how far to 


5398 


PHA 




; scroll 


5488 


STA 


SCNT 


;save it 


5418 


JSP. 


RESROL 


;reset line 


5428 


SC4 INC 


TWIN 


jcoarse scroll 


5438 


BHE 


SCI 




5448 


INC 


TWIN+i 




5458 


SCI DEC 


SCNT 


;decrease cntr 


5468 


JSP. 


JIFF 


;wait a jiffy 


5478 


LDA 


SCNT 


;done yet? 


5488 


BNE 


SC4 


;no 


5498 


JSR 


MAITKEY 


;wait 8 sees 


5588 


PLA 




[anount to 


5518 


STA 


SCNT 


;scroll back 


5528 


SC3 DEC 


THIN 


;do the back 


5538 


JSR 


JIFF 


;ward scolling 


5548 


LDA 


THIN 




5558 


CMP 


8$FF 




5568 


BNE 


SC2 




5578 


DEC 


TWIN+1 




5588 


SC2 DEC 


SCNT 


; countdown 


5598 


BNE 


5C3 


;not done 


5688 


JSR 


RESROL 


;reset line 


5618 


RTS 




[exit 


5628 


i 






5638 


;NuMber 


Of bytes 


to scroll 


5648 


• 






5658 


SCTAB .BYTE 48,88,128 


5668 


1 






5678 


; reset the ROLL 


bice Message 


5688 


i 






5698 


RE5R0L LDA 8 <RLMES 


5788 


STA 


THIN 




5718 


LDA 


tt >RLMES 




5728 


STA 


THIN+1 




5738 


RTS 






5748 


; 






5758 


,-check for Scoll 


ing Message 


5768 


i 






5778 


CKMES LDA PNUH 


iPlyr 8 


5788 


TAX 






5798 


ASL 


A 




5888 


TAY 






5818 


LDA 


PTHPB.X 


which prop 


5828 


LDX 


81 


for scroll 


5838 


CMP 


817 


taxes? 


5848 


BNE 


NTAX 


no 


5858 


LDA 


CASH,Y 


if taxes 


5868 


STA 


L 


div cash by 


5878 


LDA 


CASH+1,Y 


;8 and 


5888 


STA 


L+l 


subtract 


5898 


LSR 


L+l 


froH cash 


5988 


ROR 


L 


if able to 


5918 


LSR 


L+l 


otherwise 


5928 


ROR 


L 


just exit 


5938 


LSR 


L+l 




5948 


ROR 


L 


this is a 


5958 


LDA 


CASH,Y 


tax break 


5968 


SEC 




for the poor 


5978 


SBC 


L 




5986 


STA 


CASH.Y 




5998 


LDA 


CASH+1,Y 




6888 


SBC 


L+l 




6818 


STA 


CASH+1,Y 




6828 


JSR 


FORMDOL 


show new $ 


6838 


LDX 


81 


now scroll 



6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6148 
6150 
6160 
6178 
6180 
6198 
6288 
6210 
6220 
6238 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6358 
6368 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6518 
6528 
6538 
6548 
6558 
6568 
6570 
6580 
6590 
6600 
6610 
6628 
6630 
6640 
6650 
6660 
6670 
6680 
6696 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6840 



JMP MJM 

NTAX INX 

CMP 811 
BEQ MJM 
CMP 826 
BEQ MJM 
RTS 

MJM JMP MESSAG 



;wacation=2 

[HOGG 81 



;done 

;go scroll 



;Dice Definition Tables 

RTAB .WORD ONE 
.WORD TWO 
■WORD TRE 
.WORD FOR 
.WORD FIU 
•WORD SIX 

ONE .SBYTE "QQQQRQOQQ" 

TWO .SBYTE "ROOQROQOR" 

TRE .SBYTE "RQOQRQQQR" 

FOR .SBYTE "RQRQQQRQR" 

FIW .SBYTE "RORORQRQR" 

SIX .SBYTE "RQRRQRRQR" 

;These are the Token Definitions 

PODEF .BYTE $68 , $E0, $66, $66 

.BYTE $60,$F8,$68,$3C,$3C 
.BYTE $3C,$3C,$3C,$3C 

P1DEF .BYTE $38, S6C, $8C, $18 

.BYTE $3B,S7C,$08,$3C,$3C 
.BYTE $3C,$3C,$3C,$3C 

P2DEF .BYTE $7E, $BC, $18, $6C 

.BYTE $66,$3C,$68,$3C,$3C 
.BYTE $3C,$3C,$3C,$3C 

P3DEF .BYTE $1B, $1B, $1F, $1F 

.BYTE $03,$B3,$86,$3C,$3C 
.BYTE $3C,$3C,$3C,$3C 

i 

;These are the Horizontal 
[positions of the Players 

PTHX .BYTE $98, $98, $98, $88 

•BYTE $86, $78, $70, $68 

.BYTE $66, $58, $50, $50 

.BYTE $48, $48, $48, $46 

.BYTE $46, $48, $48, $56 

.BYTE $58, $68, $68, $78 

.BYTE $78, $88, $88, $88 

.BYTE $88,$98,$98,$A8 

.BYTE $A8,$A8,$A8,$A8 

[These are the Vertical 
[positions of the Players 

PTHY .BYTE $78, $88, $88, $88 

.BYTE $88, $88, $88, $88 

.BYTE $88, $88, $88, $78 

.BYTE $78, $78, $68, $58 

.BYTE $48, $38, $38, $38 

.BYTE $38, $38, $38, $38 

•BYTE $38, $38, $38, $48 

.BYTE $58, $58, $58, $58 

.BYTE $58, $68, $78, $78 

[The MAP colors and the 
[TOKEN colors 

MAPCL .BYTE $4E , $A8, $F4, $E8, $82 
PCLR .BYTE $02,$42,$7A,$C6 

;These are the low and hi bytes 
;of the screen position of each 
[property square on the MAP 

SCL .BYTE $FA,$4A,$48,$46,$44 
.BYTE $42,$46,$3E,$3C,$3a 



6858 
6868 
6878 
6888 
6898 
6988 
6918 
6928 
6936 
6946 
6956 
6968 
6978 
6986 
6998 
7686 
7616 
7628 
7638 
7848 
7856 
7666 
7676 
7886 
7698 
7168 
7116 
7128 
7136 
7148 
7150 
7168 
7178 
7188 
7198 
7288 
7218 
7228 
7238 
7248 
7258 
7268 
7278 
7288 
7298 
7388 
7318 
7328 
7338 
7348 
7358 
7368 
7378 
7388 
7398 
7486 
7416 
7429 
7438 
7446 
7458 
7466 
7476 
7488 
7498 
7588 
7518 
7528 
7538 
7548 
7558 
7568 
7578 
7588 
7598 
7688 
7618 
7628 
7638 
7648 
7658 



.BYTE $38,$E8,$E6,$E4,$94 

.BYTE $44,$F4,$A4,$A6,$A8 

.BYTE $AA,$AC,$AE,$B0,$B2 

.BYTE $B4,$B6,$06,$56,$58 

.BYTE $SA,$5C,$5E,$AE,$FE 

.BYTE $FC 

SCH .BYTE $71, $72, $72, $72, $72 
.BYTE $72, $72, $72, $72, $72 
.BYTE $72, $71, $71, $71, $71 
.BYTE $71, $78, $78, $76, $78 
.BYTE $78, $78, $76, $78, $78 
.BYTE $78, $76, $71, $71, $71 
.BYTE $71, $71, $71, $71, $71 
•BYTE $71 
[ 

[If a property is bought 
[show it with a thicker 
;box or circle. Each synbol 
;is 2 ANTIC 4 characters wide, 

SHHPUR LDX 835 ;go thru all 
SHH LDA SCL,X )36-first 

STA L ;get its 

LDA SCH,X [screen location 

STA L+l 

LDA REFTAB,X [find out its 

BMI FJ 

BNE FI 

LDY 86 

LDA 8$39 

STA {L1,Y 

INY 

LDA 8$3A 

STA CL),Y 
FJ DEX 

BPL SHH 

RTS 
FI CMP 81 

BNE FK 

LDA 8$2D 

LDY 86 

STA CLJ,Y 

INY 

LDA 8$2E 

STA ILJ,Y 

BNE FJ 
FK CMP 82 

BNE FL 

LDY 88 

LDA 8$2B 

STA CL),Y 

INY 

LDA 8$2C 

STA CL>,Y 

BNE FJ 
FL CMP 83 

BNE FJ 

LDY 88 

LDA 8$29 

STA CL1,Y 

INY 

LDA 8$2A 

STA CLJ,Y 

BNE FJ 



[status: special 



;8=single free 
; left side box 



[right side 

;box 

[next property 

[done 
;l=singl, bought 

[thick box, left 



[thick, right 



[double, free? 
I no 



[circle 
[left side 



[right side 
[double, bought 



[thick circle 
;left side 



[right side 



[Show the Property Nane as 

[you go by it. 

shuprp JSR clrprp [clear line 

LDA 8 <PRPLIN [point to 

STA THIN [line in 

LDA 8 >PRPLIN [display 

STA THIN+1 [list 

ldx pnum ;plyr tt 

LDA PTHPB.X [get prop tt 

ASL A 

tax [X2 for table 

LDA PRPTAB.X [get nane 

STA L 

LDA PRPTAB+l.X 



o 

o 



7668 
7678 
7688 
7698 
7788 
7718 
7728 
7718 
7748 
7758 
7768 
7778 
7788 
7798 
7888 
7818 
7828 
7838 
7848 
7858 
7868 
7878 
7888 
7898 
79B8 
7918 
7928 
7938 
7948 
7958 
7968 
7978 
7988 
7998 
8BB8 
8818 
8828 
8838 
8848 
8858 
8868 
8878 
8888 
8898 
8188 
8110 
8128 
813B 
814B 
8158 
8168 
817B 
8188 
8198 
8288 
8218 
822B 
8238 
8248 
8258 
8268 
8278 
8288 
8298 
8388 
8318 
8328 
8338 
8348 
8358 
8368 
8378 
8388 
8398 
8488 
8418 
8428 
8438 
8448 
8458 
8468 



STA L+l 
LDY 86 
LDX 81B 
5P1 LDA £L),Y 
BEQ SP2 
JSR A5C2IC 



;posit. on 

;line,get byte 

;8=done 

;to INT code 



STA PRPLIN.X ;show it 
INY 
INK 

BNE 5P1 
SP2 RTS 

;Clear Property Show Line 

CLRPRP LDX U39 

LDA 08 
CPL STA PRPLIN,X 

DEX 

BPL CPL 

RTS 

;The Property Nanes 



P81 
P82 
PB3 
P84 
P85 
PB6 
P87 
PB8 
PB9 
P18 
Pll 

P12 
P13 



P17 
P18 

P19 
P2B 
P21 
P22 
P23 
P24 
P2S 
P26 
P27 
P28 
P29 

P38 
P31 
P32 



.BYTE "Bar-B-Q Ranch", 8 

■BYTE "Ringading Phone", 8 

.BYTE "Crosseye Cable TV", 8 

.BYTE "Bide Yorke Tines", 

•BYTE "Spuds Potato FarM",8 

.BYTE "Black Gold Oil", 8 

.BYTE "Rex auto Corp.", 8 

.BYTE "Thredbare Clothing", 8 

.BYTE "Kolbe's Cheese", a 

.BYTE "Daisy's Dairy", 8 

.BYTE "Black Jack's Casino" 

.BYTE 8 

.BYTE "Death Valley Spa", 8 

.BYTE "AdaMS Apple Orchard" 

.BYTE 8 

.BYTE "Sour Grapes Vineyard" 

.BYTE 8 

.BYTE "Short Circuit P & L" 

.BYTE B 

.BYTE "Heavy Hater conpany" 

.BYTE 8 

.BYTE "StytCh'S Clinic", 8 

.BYTE "Schappel's scalpels" 

.BYTE 8 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 



Crosstrax Railway", 8 
Drip Dry Cleaners", B 
JetstreaH Airlines", 
HAL Computers", 8 
Selnart stores", e 
1811 Penneys" ( 8 
•BYTE "Hilt's Vegetables", 8 
.BYTE "Titanic Shipping", B 
.BYTE "Steal Steelworks", B 
.BYTE "Silicon Gulch", 8 
.BYTE "Disastrous Insurance" 
.BYTE B 

.BYTE "The Luck Square", B 
.BYTE 8 
.BYTE "Capital Gains Tax", 8 



;The Look-Up Table for each 
j square on the HAP board. 
;* narks the doubles 

PRPTAB .WORD P31 ;stock Market 
.word P25 j wilt veg * 



.WORD P26 

.WORD P87 

.WORD P18 

.WORD P17 

.WORD P3B 

.WORD P19 

.WORD PB6 

.WORD P22 

.WORD P28 

.WORD P31 

.WORD Pll 

.WORD P12 



;titanic ship* 
;rex auto 
jschappel * 
jstytches * 
,-L Cluck) 
;crosstrax rail 
jblack gold oil 
;HAL conputer * 
jsilicon gulch* 
;H (holiday) 
; casino 
;death valley 



8478 


.WORD 


P23 


;selnart 


8488 


.WORD 


P13 


;adaMS apple * 


8498 


.HORD 


P14 


;sour grapes * 


858B 


.WORD 


P31 


;T (taxMan) 


8518 


.HORD 


P28 


;drip dry 


8528 


.HORD 


PB5 


;spud potatoes * 


8538 


.HORD 


PB1 


jbbq ranch * 


8548 


.HORD 


P21 


; jetstreaM air 


8558 


.HORD 


P30 


;L (luck) 


8568 


.HORD 


P82 


; phone co 


8578 


.HORD 


P24 


;iou pennys 


8588 


.HORD 


P88 


; threadbare 


8598 


.HORD 


P31 


;H (holiday) 


8688 


.WORD 


P89 


;kolbe * 


8618 


.HORD 


P18 


; daisy * 


8628 


.HORD 


P27 


; steal steel 


8638 


.WORD 


P83 


; crosseye TV * 


8648 


.WORD 


PB4 


;olde yorke * 


8658 


.HORD 


P32 


JC (capital tax) 


866B 


.HORD 


P29 


; insurance 


8678 


.HORD 


P16 


;heavy H20 * 


8688 


.WORD 


P15 


;P&L * 



LISTING 6: ASSEMBLY 



8188 
8118 
8128 
8138 
8148 
8158 
8168 
8170 
8188 
8198 
8288 
8218 
8228 
8238 
8248 
8258 
0268 
B27B 
828B 
8298 
8388 
0310 
8328 
B338 
8348 
8358 
8368 
837B 
8388 
8398 
8488 
8418 
0420 
8438 
8440 
0450 
8468 
8478 
8488 
8498 
8588 
8518 
8528 
8538 



SAVEBD i CAPITALS . M65 



CAPITAL! Subroutines; 
by: Bryan Schappel 

Get the Rent of a property 

GET_RENT LDA CPROP jcurr prop 

TAX joffset in table 

LDA RENT.X ;get rent 

STA AMOUNT ; save 

LDA 88 ;e hi byte 

STA AMOUNT+1 

LDA XREF,X ; is this a dbl? 

BNE GOTD ;YES! 

RTS jno. 



jhalf 8 

jget owner 

;sane as landed 

;on? no! 

;YE5! Make rent 

;=half+half 



GOTD TAY 

LDA HHO,Y 

CMP OWNER 

BNE ROUT 

LDA RENT,Y 

CLC 

ADC AMOUNT 

STA AMOUNT 

LDA AMOUNT+1 

ADC tta 

STA AMOUNT+1 
ROUT RTS ;exit 

i Handle an Improvement 

IMPROVE JSR HAVE-ANY ;own any? 
BPL IM1 ;YES 
RTS ;none if - 

IM1 PRINT IMP_TXT ;'lMproue?' 
JSR GETYN ; Yes/NO 
BEQ GIM J 8 = yes 
RTS JOUt 



0540 


GIM LDA PNUM 


;plyr tt 


8558 


ASL A 


;x2 


8568 


TAY 




8578 


LDA CASH+1,Y 


;see if plyr 


8588 


BNE GIMP 


;has S18G 


8598 


LDA CASH.Y 


;plus $1G 


8688 


CMP Mil 




861B 


BCS GIMP 


;sure 


862B 


JMP N0_CASH 


;not enuf 


0630 


GIMP JSR PICK-PROP ;pick a prop 


0640 


LDX PPROP 


;picked prop 8 


8658 


BMI GOUT 


;- = none pick 


0660 


BNE IMP-IT 




0670 


GOUT RTS 


;B = no 


8688 


, 




8698 


IMP_IT LDA IMP,X 


;get cur level 


8788 


CMP t>3 


; at Max. level? 


8718 


BCC DO-IMP 


j no 


872B 


PRINT MAX 


; 'At Max' 


8738 


JMP WAITKEY 


;exit 


8748 


DO-IMP LDA RENT, 


X ;get rent 


0750 


ASL 


;x2 


8768 


STA RENT,X 


isave it 


8778 


INC IMP,X 


;inc level 


8788 


LDA C0ST,X 


;add 5 to 


879B 


CLC 


;prop cost 


8888 


ADC 85 




8818 


STA C05T.X 




0820 


LDA 81B 


;costs Sieg 


8838 


LDY PNUM 


;to inprove 


8848 


JSR SUB 




0850 


JMP T_0K 


; 'Trans, comp' 


886B 


i 




8878 


;Get a Yes or No 




8888 


;B= yes <> = no 




889B 


i 




8988 


GETYN PRINT YNTXT ;'YeS No' 


8918 


GYN JSR GETCH 




8928 


CMP 843 


;a Y 


8938 


BNE TRYN 




8948 


RTS 




8958 


TRYN CMP 8$23 


;an N 


8968 


BNE GYN 




897B 


CMP 8B 


; force BNE 


0980 


RTS 




8998 


l 




1000 


jMake a Player PAY 


1818 


, 




1828 


PAY-RENT JSR GET 


-RENT ;get rent 


1B3B 


PRINT FEE 


jprint it 


1B4B 


LDA 88 


;pay to 


1B5B 


STA RFLAG 


iplayer 


1668 


BEQ JJSS 




1B7B 


JUST-PAY LDA 81 


ijust lose $ 


1080 


STA RFLAG 




1698 


JJSS LDA PNUM 


;plyr 8 


1188 


ASL A 


;x2 


1118 


TAY 




1128 


LDA CASH+1,Y 


;get cash 


1138 


CMP AMOUNT+1 


; is it enuf? 


1148 


BEQ PALO 


; check low 


1158 


BCS PAY-IT 


yes 


1168 


PALO LDA CASH.Y 


;enuf low? 


1178 


CMP AMOUNT 




1188 


BCC FORCE 


ino, force sell 


1198 


BEQ FORCE 


•ditto 


1286 


PAY_IT LDY PNUM 


;pay 


1216 


LDA AMOUNT 


(this anount 


1226 


JSR SUB 




1236 


LDA 88 


;turn disaster 


1246 


STA DISFLAG 


; flag off 


1258 


LDA RFLAG 


just lose if 


1266 


BNE TOK 


;<> e 


1276 


LDY OHNER 


'pay owner 


1286 


LDA AMOUNT 


the anount 


1296 


JSR ADD 


add to owner 


1368 


TOK JMP T-OK 


exit 


1318 


FORCE LDA 81 


force sale 


1328 


STA DISFLAG 


of props 


1338 


JSR MAKE-RAN 


;«■- lling prices 


1346 


LDA SPEED 


fast gaMe=8 



o 



1358 
1368 
1378 
1388 
1398 
1488 
1418 
1428 
1438 
1448 
1458 
1468 
1478 
I486 
1498 
1588 
1518 
1528 
1538 
1548 
1558 
1568 
1578 
1588 
1598 
1688 
1618 
1628 
1638 
1648 
1658 
1668 
1678 
1688 
1698 
1788 
1718 
1728 
1738 
1748 
1758 
1768 
1778 
1788 
1798 
1888 
1818 
1828 
1838 
1848 
1858 
1868 
1878 
1888 
1898 
1988 
1918 
1928 
1938 
1948 
1958 
1968 
1978 
1988 
1998 
2888 
2818 
2828 
2838 
2848 
2858 
2868 
2878 
2888 
2898 
2188 
2118 
2128 
2138 
2148 
2158 



BEQ DED 

JSR NO-CASH ; 'No cash' 
J5R HANT-SALE ;sell props 
LDA PPROP ;get prop it 
BPL JJSS ;ok,try pay 

DED PLA ;no props so 
PLA jplayer dies 
JMP DEAD ;tell everyone 

i 

;Pick a Property 

PICK-PROP LDA CPROP ;save curr. 
STA TPROP j property it 
JSR HAVE_ANY ;have any? 
BPL g_pick jyes 



;no Y=$FF 
;exit 

jcycle thru 
; props, who 
;owns this one 
;ME? 
;no 
JSR SHOPROP ;show prop info 
INC PAUSE? ;l = fast prnt 
;disaster? 
j no 

PRINT AHTOHD ;'AMt owed' 
LDA AMOUNT jprint aunt 
LDX AMOUNT+i 
JSR PRNUH 
PCKQ PRINT PICK-MESS J 'pick?' 



STY PPROP 
RTS 
G-PICK LDY tie 
PCK1 LDA WH0,Y 
STY CPROP 
CMP PNUM 
BNE PCKU 



LDA DISFLAG 

BEQ PCKQ 



LDA DISFLAG 
BNE PCKK 
PRINT PICK 

PCKX DEC PAUSE? 

PCKK JSR GETCH 
CMP 826 
BNE NOESC 
LDA DISFLAG 
BNE PCKK 
LDA tie 
STA CPROP 
BEQ PICK-LV 

NOESC CMP 833 
BEQ PCKU 
CMP ttl2 
BNE PCKK 



PICK-LV LDA CPROP jget picked 



STA PPROP 
LDA TPROP 
STA CPROP 
RTS 



if disaster 
MUSt pick 
REST J 1 ESC 
slow down 
yet key 
ESC? 
no 

yes, but if 
disaster -no 
if ESC set to 
8 => none 
leave 
SPACE? 
next one 
RETURN? 
picked one 



property 
restore 
cur. prop 



PCKU LDY CPROP ;get prop 



INY 
CPY 836 
BCC PCK1 
LDY 88 
BEQ PCK1 



jnext one 
;at end? 
jno-cycle 
; reset to 



; Handle Buying a Property 

BUY-IT PRINT BUY-MESS J 'Buy?' 

JSR GETYN ;ch0ice 

BEQ BUY1 ;yes 

RTS ; don't want to 

BUYl LDA PNUM ;which plyr 

LDY CPROP jeur. prop 

ASL A ;x2 

TAX 

LDA CASH+1,X ;enuf CASH? 

BNE BUY-OK ;yes 

LDA CASH.X 

CMP COST,Y 

BCC NO-CASH ;not enuf 

BEQ NO-CASH ; " 
BUY-OK LDA PNUM ; show who 

STA HHO.Y 

TYA 

TAX 



jcheck low bytes 



;now owns it 
jshow it has 



2168 
2178 
2188 
2198 
2288 
2218 
2228 
2238 
2248 
2258 
2268 
2278 
2288 
2298 
2388 
2318 
2328 
2338 
2348 
2358 
2368 
2378 
2388 
2398 
2488 
2418 
2428 
2438 
2448 
2458 
2468 
2478 
2488 
2498 
2588 
2518 
2528 
2538 
2548 
2SSB 
2568 
2578 
2588 
2598 
2688 
2618 
2628 
2638 
2648 
2658 
2668 
2678 
2688 
2698 
2788 
2718 
2728 
2738 
2748 
2758 
2768 
2778 
2788 
2798 
2888 
2818 
2828 
2838 
2848 
2858 
2868 
2878 
2888 
2898 
2988 
2918 
2928 
2938 
2948 
2958 
2968 



INC REFTAB,X ;been purchased 
LDA COST,Y ;get price 
LDY PNUM ;subtract 
JSR SUB ;fro« CASH 
T_OK PRINT TRAN-OK ;'COMplted' 
JSR HAITKEY ;wait 8 sees 
LDA 88 ;set pay to 
STA RFLAG ; flag & hi 
STA AMOUNT+1 ;byte of pay 
RTS jaMOunt 

; Sorry no CASH 

NO_CASH LDA 8 <NCASH 
LDY 8 >NCASH 
JSR EPRINT 

JSR HAITKEY ;wait 8 sees 
LDA 88 
RTS 

;Sell a Property 

WANT-SALE JSR HAVE-ANY jany? 

BPL P-SALE ;yes if + 

STY PPROP ;$FF if - 

RTS 
P-SALE LDA DISFLAG ; disaster? 

BNE GO-SELL j yes-sell 
PRINT SELL-TXT ;chOice 

JSR GETYN ;if not forced 

BEQ GO-SELL jsell 
SLV RTS 

GO-SELL JSR PICK-PROP ;piCk one 
LDA PPROP jpicked 
BMI SLV ;none available 
BNE SELL-IT J if SFF. 8 
LDA DISFLAG ;-none picked 
BNE GO-SELL ; forced sell 
RTS 

SELL-IT TAX ; which prop 
DEC REFTAB.X ;sell it in 
LDA 8$FF Jtable, SFF = 
STA HHO,X ;no one owns 
LDA RANTAB.X ; another 

; sta cost.X ;way to Make 
LDY PNUM ;the gane 

JSR ADD ;add $ to CASH 

JMP T_OK ;done 
j 

;Own any Properties 
;Y has propery 8 or 8 
j + if prop owned, - if not 

HAVE-ANY LDY 835 ;check list 

LDA PNUM ;get our 8 
HAU1 CMP HHO,Y ;in table? 

BEQ HAV2 ;yes 

DEY 

BPL HAV1 
HAV2 RTS 

;Handle LUCK locations 

DO-LUCK LDX PNUM ;plyr 8 

LDA PTHP8.X ;cur prop 8 

CMP 832 ;cap gains? 

BNE DO-RLUK ;no 

LDA 8 <CAPGNS ;CG routine 

STA LJMP+1 

LDA 8 >CAPGNS 

STA LJMP+2 

LDA 8$7D ;clear sen 

JSR EPUT 

LDA 8 <P32 ;CG prop naMe 

LDY 8 >P32 

JMP DO-CG 
DO-RLUK LDX RANDOM ;get randoM 

CPX 86 ;LUCK 

BCS DO-LUCK 



2978 
2988 
2998 
3888 
3818 
3828 
3838 
3848 
3858 
3868 
3878 
3888 
3898 
3188 
3118 
3128 
3138 
3148 
3158 
3168 
3178 
3188 
3198 
3288 
3218 
3228 
3238 
3248 
3258 
3268 
3278 
3288 
3298 
3388 
3318 
3328 
3338 
3348 
3358 
3368 
3378 
3388 
3398 
3488 
3418 
3428 
3438 
3448 
3458 
3468 
3478 
3488 
3498 
3588 
3518 
3528 
3538 
3548 
3558 
3568 
3578 
3588 
3598 
3688 
3618 
3628 
3638 
3648 
3658 
3668 
3678 
3688 
3698 
3788 
3718 
3728 
373B 
3748 
3758 
3768 
3778 



LDA LUCKL.X jget LUCK 

STA LJMP+l ; routine 

LDA LUCKH.X 

STA LJMP+2 

LDA 8S7D ;clear sen 

JSR EPUT 

LDA 8 <P38 J "LUCK Sq' 

LDY 8 >P38 
DO-CG JSR INVPROP ; inverse naMe 

PRINT YL ; 'You lose' 
LJMP JSR SFFFF ;go to routine 

JMP T_OK Jdone 

;** Luck Routines ** 

jHin 18G free CHOW for ME?) 



Gl 



LDA 818 
BNE G2.1 



;Hin 15G free 

G2 LDA 815 
G2.1 LDY PNUM 
STA VALUE 
JSR ADD 
JSR PG 

PRINT YH 
' no VALUE 
LDX 88 
JMP PRNUM 



PG 



PRINT 
RTS 



;give S 
jto whon? 

;add to CASH 
jLuck is 'good' 
; "You win' 
; '$nnG' 

jprint & exit 



GOOD jprint 'good' 



;Get a FREE Inprovenent 



G3 



JSR GRPROP 
BMI Gl 
TAX 

LDA IMP,X 
CMP 83 
BCS Gl 
INC IMP,X 
LDA RENT.X 
ASL A 

STA RENT,X 
STX TPROP 
JSR PG 
PRINT YH 



;get a prop 
jnone so 
;give $ 
jget level 
;at Max? 
jyup give $ 
; increase it 
;get fee 
jx2 

;save it 
;save prop 8 
j 'good' 
j "You win' 



PRINT AN-IMP J'iMprov..' 

LDA TPROP jget prop tt 

ASL A JX2 

tax ;get naMe 

LDA PRPTAB+l.X 

TAY 

LDA PRPTAB,X 

JMP EPRINT ; print £ exit 

i 

; Loose 18G 



; 'Bad luck' 
; "You lose' 
; '$18G' 
; low ant 
;high ant 
;show it 
jpay to bank 

JSR JUST-PAY J take it away 

PLA ;pull return 

PLA 

RTS jexit 



Bl JSR PB 

PRINT YD 
LDA 818 

B1A STA AMOUNT 
LDX 88 
JSR PRNUM 
INC RFLAG 



LDA 8 <BAD jprint 
LDY 8 >BAD J luck' 
JMP EPRINT 



bad 



;Cut the RentCFee) in half 

B2 JSR GRPROP ;grab prop 8 
BMI Bl ;none 
TAX 






o 



continued on page 64 





NEW CARTRIDGES! 



STAR RAIDERS 

E.T. 

DIG DUG 



ASTEROIDS 
DEFENDER 
MISSLE COMMAND 



GALAXIAN 
FACE MAKER 



1020 

Complete with: 

• 2 Pen Sets 

• 1 Roll Paper 

• Power Supply & Cable 

EXTRA PEN SETS 



COLOR PRINTER 
PLOTTER 



$14,98 

1 Br and New 

S .89 (Black) 
S3. 98 (Color) 



1200XL 64K COMPUTER 



w/PAC-MAN 



Reconditioned 



ATTN. DEALERS 

PAC-MAN 

Case of 120 



$69. 



800 48K COMPUTER 
w/pac-man6cq QC 

T Seconal tloned 



1025 PRINTER 



• 80 Column 

• Dot Matrix 

• FrlcUon/Tr actor 

• Direct Connect 



$79.98 

Reconditioned 



1027 PRINTER 



80 Column 
Direct Connect 
Ixller Quality 



Brand New 



DISK DRIVE 



* *\M /\ UlSri UK1VK 

1050 $169. 

Reranditioned 



800 BOARDS 

• Mother • CPU your choice 

• Power • ROM $8.98 



8BU I/O Cable- . $4.98 

850 Interface ^7q qq 

Serial, parallel 5 ?' ^• aC * 

' Seconal u on eu 

810 DRIVES $129. 

jWondlUonej 

BASIC TUTOR <£?a qq 

i BOOKS V^*»^*0 

5.25" DISKS 20 CENTS EA.' 
QTY. PRICK 

10 $4.00 

100 .... S29.9S 

•1000 .... S200 

MAJORITY A!tK UNNOTCHED 

CONTAINING OLD SOrTWAH E 

DOS XE .. $9.95 

DOS 2,5 w/manual .. $4,98 

1010 Tape drive S29. 

10' Joystick cxt $ .99 

Trackball S9.95 



CARTRIDGES FOR 800, XL, XE 



I1ASIC CARTRIDGE $4.95 

BASIC TUTOR (4 BOOKS) $4.95 

TURMOI1 $4.95 

PAC-MAN (no box) $4.95 

DONKEY KONG (no box) $4.95 

GORF (400.800) $4.95 

DEMON ATTACK (400.800) $4.95 

DELUXE INVADERS $4.95 

JOURNEY TO THE PLANETS.. $4.95 

STAR RAIDERS $4.95 

MISSLE COMMAND $4.95 

ASTEROIDS $4.95 

GALAXIAN $4.95 

DEFENDER $4.95 

E.T. $4.95 

FACEMAKER $4.95 



MATH ENCOUNTER $7.98 

DANCE FANTASY $8.98 

LOGIC LEVELS $8.98 

MEMORY MANOR $8.98 

LINKING LOGIC $8.98 

CHICKEN $8.98 

CLAIM JUMPER $8.98 

DELTA DRAWING $8.98 

HEY DIDDLE DIDDLE .... $9.98 

SLIME (400/800) $8.98 

ALPHABET ZOO $8.98 

ALF $8.98 

ADVENTURE CREATOR .. $8.98 

DIG DUG $14.95 

SKY WRITER $14.95 

FOOTBALL $14.95 



DEFENDER $14.95 

ROBOTRON $19.98 

TENNIS $19.98 

FINAL LEGACY $19.98 

MARIO BROS $19.98 

DONKEY KONG JR $19.98 

JUNGLE HUNT $19.98 

MOON PATROL $19.98 

BATTLEZONE $19.98 

FOOD FIGHT $19.98 

HARDBALL $19.98 

FIGHT NIGHT $19.98 

ONE ON ONE BASKETBALL ... $19.98 

DESERT FALCON $19.98 

NECROMANCER $19.98 

RESCUE ON FRACTALUS $19.98 



BALLBLAZER $19.98 

BLUE MAX $19.98 

STAR RAIDERS II $19.98 

DAVID'S MIDNIGHT MAGIC $19.98 

ARC1ION $19.98 

KARATEKA $19.98 

CHOPLIFTER $19.98 

OATO $24.98 

ACE OF ACES $24.98 

LODE RUNNER $24.98 

BARNYARD BLASTER (gun req.) .. $24.98 

DARK CHAMBERS $29.98 

AIRBALL $29.98 

SUMMER GAMES $29.98 

CROSSBOW (gun req,.) $29.98 

CRIME BUSTERS (gun req.) $29.98 



DISK SOFTWARE FOR 800, XL, XE 



DAVID'S MIDNIGHT MAGIC ... $4.98 

ZORRO $4.98 

BANDITS (48K 400.800) $4.98 

PROTECTOR II $4.98 

CLAIM JUMPER $4.98 

SYNTREND $4.98 

CROSSCHECK $4.98 

MOLECULE MAN $4.98 



CRYSTAL RAIDER $4.98 

DESPATCH RIDER $4.98 

MISSION ASTEROID $4.98 

SP1DERMAN $4.98 

HULK $4.98 

COMMBAT $4.98 

PREPPIE I $4.98 



PREPP1E II S4.98 

THE COUNT S4.98 

DISK 50 (50 GAMES) S4.98 

FREAKY FACTORY S4.98 

LASER HAWK $4.98 

ROCKET REPAIRMAN $4.98 

ADVENTUREIAND $4.98 



PIRATE ADVENTURE $4.98 

SECRET MISSION $4.98 

VOODOO CASTLE $4.98 

TECHNICOLOR DREAM .$4.98 

STRANGE ODYSSEY $4.98 

VISICALC $24.98 

BOOKKEEPER W/ num. keypad... $29.98 
GET RICH S29.98 



Astra 

Double Density 
Dual Disk Drives 

(2 drives in 1 case) 



$ 199. 



New! 



Special buys on 8-BIT Hardware! 



SAN JOSE COMPUTER 



H E 



T A R I 



S T R 



Sunrise Plaza 640 Blossom Hill Rd. San Jose. CA 95123 
(408) 224-8575 • BBS (408) 224-9052 



Light Gun 

For use with pistol 
games on 8-Bit systems 

$34.98 



Light Gun Package 

Includes: 

• Li^ht Gun 6 ■ 

• Crime Busters V 

• Crossbow 

• Barnyard Blaster 



109. 



SHIPPING: ADD $5.00 TO ALL ORDERS. AJR AND INTERNATIONAL SHIPPING EXTRA. TIIATS IT. 

WARRANTY: 90 DAY WARRANTY ON ALL ITEMS. TAX: CALIFORNIA RESIDENTS ADD 7% SALES TAX. 

PREPAYMENT: USE VISA. MASTERCARD, MONEY ORDER, CASHIER'S CHECK OR PERSONAL CHECK. 

PERSONAL CHECK MUST CLEAR PRIOR TO SHIPMENT. C.O.D.: CASH, CASHIER'S CHECK OR M.O. ONLY. 

Prices subject to change without notice. Brand and/or product names are trademarks or registered trademarks of Lhelr respective holders. 

Ad produced on an ATARI ST using I^ibllshlng Partner and printed on an ATARI SLM804 PostScript compatible laser printer. 



CIRCLE #102 ON READER SERVICE CARD. 



I hope all Boot Camp readers have been 
practicing their addition, subtraction and 
X-Y register manipulations, because 
we're moving on to bigger and better 
things. We'll be dabbling with 
comparisons, branching and indexing this 
month, giving you even more tools to work 
with in assembly language. 

First Things First 

Last month, I gave you a simple data- 
manipulation problem: 

PROBLEM: Write a program which 
starts with A=$03, X=$07 and 
Y=$14. Then write the code necessary 
to change these registers so that when 
the program ends, the registers are 
A=$07, X=$14 and Y=$03. 



This solution is easy to understand by sim- 
ply looking at it, and is a solution that most 
beginners would probably use. However, 
from a memory usage standpoint, this rou- 
tine requires 22 bytes. We can do the same 
exchange in only ten bytes with this routine: 



HOLD 



HOLD 



10 


STY H 


20 


TAY 


30 


TXA 


40 


LDX H 


50 


BRK 


60 HOLD 


*z*+l 


70 


.END 



As you can see, this code uses two of the 
transfer instructions, TAY and TXA, to elim- 
inate two of the temporary storage areas used 
in the first version. Since the transfer instruc- 



son instructions. These instructions are 
designed to test the values contained in the 
Accumulator, X and Y registers. Each of 
these instructions compares the desired 
register with the memory byte specified in 
the operand and sets the 6502 status flags ac- 
cordingly. 

The Accumulator comparison instructions 
are: 



CMP 


#n 


(IMMEDIATE) 


CMP 


nn 


(ABSOLUTE) 


CMP 


n 


(ZERO PAGE) 


CMP 


(n,X) 


(PRE-INDEXED INDIRECT) 


CMP 


(n)Y 


(POST-INDEXED INDIRECT) 


CMP 


n,X 


(ZERO PAGE INDEXED X) 


CMP 


nn,X 


(INDEXED X) 


CMP 


nn,Y 


(INDEXED Y) 




by Tom Hudson 



As most readers know, there are hundreds 
of ways to solve any programming problem, 
and this one is no exception. The objective 
is not just to solve the problem, but to do it 
in the most efficient way possible. I'll show 
you two ways to solve the above problem, and 
discuss the pros and cons of each. 



10 


5TA 


AHOLD 


20 


STX 


XHOLD 


30 


STY 


YHOLD 


40 


LDA 


XHOLD 


50 


LDX 


YHOLD 


60 


LDY 


AHOLD 


70 


BRK 





80 AHOLD *=*+l 
90 XHOLD *=*+l 
0100 YHOLD *=*+l 
0110 .END 

The above shows an easy-to-understand, 
straightforward solution to our problem. It 
stores each register in hold areas, then loads 
the registers from the appropriate hold area. 
Lines 10-60 perform the register exchange 
function, and Lines 80-100 set up the one- 
byte storage areas. 

36 



tions use only one byte versus the six bytes 
for a LDA and STA instruction, this version 
of the exchange code uses less than half the 
memory. 

Although we gain memory savings, we lose 
some readability. Let's say you use the first 
routine in a program and don't look at the 
program for a year. If you need to make a 
change, it's easy to see what the routine does. 
The second version may not be so easy to 
decipher. Since you never know when you'll 
have to make a change to a program, it's a 
good idea to comment your code heavily, in 
order to let yourself know what you were 
doing. 



The X register comparison instructions 
are: 



What If..? 



The great thing about computers is that 
they can perform calculations quickly. 
Without the ability to make decisions though, 
a computer would be almost useless. 

For this reason, the 6502 microprocessor 
in your Atari is equipped with 14 compari- 



CPX #n 
CPX nn 
CPX n 



(IMMEDIATE) 
(ABSOLUTE) 
(ZERO PAGE) 



The Y register comparison instructions 
are: 

CPY #n (IMMEDIATE) 
CPY nn (ABSOLUTE) 
CPY n (ZERO PAGE) 

All comparison instructions affect only 
three status flags. These are the Sign, Zero 
and Carry flags. 

What happens in a comparison? Internal- 
ly, the computer will subtract the operand 
byte from the register contents, set the sta- 
tus flags just like a subtract, but will not 
alter the register. Simple, right? Let's look 
at a few examples. 

Assume the accumulator contains $45, 
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and we execute the instruction: 
CMP #$31 
Inside the computer, the faithful 6502 
would subtract $31 from $45 and obtain the 
following result: 

$45 = 10 10 1 
$31 = 110 1 



10 10 0= 



Since the result is not 0, the Zero flag 
is set to 0. The Sign flag is set to Bit 7 or 
the result, which is 0. The Carry flag is set 
to 1, since no borrow was required. The 
Carry flag is always the inverse of the bor- 
row status. 

By looking at the result of this compari- 
son, we can say that the accumulator is not 
equal to $31, since the result of the com- 
pare was not 0. We can also say that the 
accumulator is greater than $31, since the 
Carry flag is set. 

Assume the X register contains $7F and 
we want to compare it with $7F. We would 
use the following instruction: 



$7F = 
$7F = 



1 1 1 
1 1 1 



0= $00 

The result is 0, so the Zero flag is set 
to 1. The 7 bit of the result is 0, so the Sign 
flag is set to 1. 

After this comparison is complete, we 
can conclude that the register is equal to 
$7F because the Zero flag is set. 

Assume the Y register contains $12 and 
we want to compare it to $4E. We would 
use the following instruction: 
CPY ME 

The subtract operation inside the 6502 
would look like: 

$12 =00010010 
$4E = 10 1110 



1 10 10 0= $C4 

Before you get confused with the above 
binary operation, remember how subtrac- 
tion works in Base 10. If the number being 
subtracted (minuend) is larger than the sub- 
trahend, a borrow is necessary from the 
next higher digit. This case of the compare 
requires a borrow. 

In this case, the Zero flag will be set to 
0, indicating a non-zero result. The Sign 
flag will be set to the contents of Bit 7 of 
the result, which is a 1. The Carry flag will 
be set to 0, the inverse of the borrow status. 
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From these flags, we can conclude that 
the Y register is less than $4E because the 
Carry flag is cleared (0). 

That's all there is to using the compare 
instructions. They work the same way, 
regardless of the address mode. 

Comparisons are just about worthless 
without the ability to do something based 
on the result of a comparison, so next we'll 
look at the 6502 branch-on-condition in- 
structions. 

Branches Conveniently Located 

So far, the only means of transferring 
program execution we've looked at has 
been the JMP (Jump to location) instruc- 
tion. Now we'll look at the eight branch- 
on-condition instructions used by the 6502. 
The eight formats are: 

BCS n (BRANCH IF CARRY= 1) 
BCC n (BRANCH IF CARRY = 0) 
BEQ n (BRANCH IF ZERO = 1) 
BNE n (BRANCH IF ZERO = 0) 
BMI n (BRANCH IF SIGN = 1) 
BPL n (BRANCH IF SIGN = 0) 
BVC n (BRANCH IF OFLOW = 0) 
BVS n (BRANCH IF OFLOW = 1) 

Observant readers may note that oper- 
and of the branch instructions consists of 
only one byte. As you may recall, the JMP 
instruction was able to jump to any 
memory location because its operand con- 
sisted of two bytes. Branches are another sto- 
ry altogether. 

With only one byte in their operands, 
branch instructions are only able to branch 
backward 128 bytes or forward 127 bytes. 
This is known as "relative" addressing. For- 
tunately, most assemblers will calculate the 
distance of a branch for you. However, if a 
branch distance is more than the branch limit, 
you'll have to restructure your branch by us- 
ing a JMP or multiple branch instructions. 

Let's look at a few typical branch applica- 
tions. Here's the comparison/branch structure 
for the condition: 

IF X = 7 THEN GOTO START 

CPK tt7 
BEQ START 



START 

As you can see, the CPX instruction is 
followed by a branch instruction. In this 
case, if the X register is equal to 7, the pro- 
gram will go to the location labeled 
START. 

For the condition: 

IF A <> 52 THEN GOTO POINTA 
we would use: 



CMP »52 
BNE POINTA 



POINTA 

Multiple conditions may require some 
extra effort, such as the condition: 
IF Y <=242 THEN GOTO MAIN 
The code for this condition is: 



CPY tt242 
BEQ MAIN 
BMI MAIN 



MAIN 

These multiple conditions are really 
quite easy; you just have to use the instruc- 
tions provided. 

The nice thing about branch instructions 
is that you don't have to use them after a 
compare instruction. You can place them 
anywhere in a program. For example, in 
addition or subtraction instructions, which 
set the status flags just like a compare, a 
zero result in an operation will set the 
proper branch flags. Look at the following 
code: 

LDA BYTE1 

SEC 

SBC BYTE2 

CMP »Q 

BEQ ZERO 

The CMP #0 instruction is not necessary, 
since the SBC operation set the flags for 
us! The optimized code would look like: 

LDA BYTE1 

SEC 

SBC BYTE2 

BEQ ZERO 

Remember, branches can be done any- 
where the status flags are altered, giving 
you incredible flexibility in program 
design. 

"/ Wish I Were Indexing. . ." 

Now we can start combining some of our 
new programming tools to do meaningful 
work. With the added function of branch- 
ing, we can start using the X and Y 
registers as counters and indexes. 

Indexing was discussed in the second in- 
stallment of Boot Camp in ANALOG, so 
I won't repeat all the basics. The first ex- 
ample I'll show is the use of the X and Y 
registers as counters. 

Let's say we want to execute a section of 
code ten times. Since the program uses the 
Accumulator and X register in the loop, 
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we'll use the Y register as a counter to con- 
trol the loop. 

In order to use the X and Y registers as 
indexes, we have been given the four in- 
structions: 

INX (INCREMENT X BY 1) 

INY (INCREMENT Y BY 1) 

DEX (DECREMENT X BY 1) 

DEY (DECREMENT Y BY 1) 

These four instructions simply add or 
subtract 1 from the X or Y registers, al- 
lowing you to use the registers as indexes 
easily. These registers affect the Zero and 
Sign flags. 

Here's the code necessary to perform a 
loop ten times: 



LOOP 



LDY ttJLO 



DEY 

BNE LOOP 



This is a simple counter example. Note 
that, in this case, we have set up the Y 
register as a countdown counter, from 10 
to 0. After the DEY instruction is execut- 
ed, we BNE LOOR If the Y register decre- 
mented to 0, the program will not take the 
branch, and the loop is finished. No CPY 



#0 instruction was needed, since the DEY 
instruction set the zero flag for us. 

We could have used the Y register as a 
count-up counter, from to 10, like this: 



LOOP 



LDY »9 



INY 

CPY »18 
BNE LOOP 



Note that in the count-up example an ex- 
tra compare is needed (CPY #10) to see if 
the Y register has reached 10 yet. If it has 
not, the program will take the BNE LOOP 
branch to continue looping. 

Using the X and Y registers for index- 
ing is similar to using them for counters. 
The main difference is that the register is 
used inside the loop to point to varying 
places in memory. This code shows an ex- 
ample of indexing that will copy the six 
bytes of TABLE1 into TABLE2: 



10 


LDX as 


2Q 


COPY LDA TABLEi,X 


30 


STA TABLE2,X 


48 


DEX 


50 


BPL COPY 


60 


BRK 


70 


TABLE1 .BYTE 18,20,30,48,50,60 


80 


T6BLE2 *=*+6 


90 


.END 



The program begins with the X register 



set at 5. Remember, when referencing in- 
dividual elements in a table, the indexes for 
the elements range from to 1 less than 
the number elements. In this case, the ele- 
ment numbers range from 0-5. As the loop 
(labeled COPY) executes, each byte of 
TABLE1 will be moved to TABLE2. This 
looping will continue until the X register 
is decremented past 0, where it will equal 
255 due to wraparound. At this point, the 
Sign flag will be 1, indicating a negative 
number. When this happens, the BPL 
COPY instruction will be ignored and the 
looping will end. Try assembling this rou- 
tine into memory and tracing its execution. 
What if we want to copy TABLE1 into 
TABLE2 in reverse order? This is a nifty 
little problem that will help you understand 
X-Y indexing more thoroughly. Try writ- 
ing the code, using as many memory loca- 
tions as necessary. Next issue, I'll show a 
way to do this with only three changes to 
the above example. 

No More Time 

I had wanted to cover multi-byte math 
this issue, but due to space limitations, I'll 
have to delay this until next time. Until 
then, play around with comparisions and 
branching, and try to find a solution to the 
above problem. PI 



FOR OUR DISK 
SUBSCRIBERS 

The following programs from this 
issue are on disk: 



THE ANALOG #75 DISKETTE CONTAINS 18 
MAGAZINE FILES. THEY ARE LISTED BELOW: 



FILENAME. EXT LANG. 



LOAD ARTICLE NAME 



MOUNTAIN 


.BAS 


BASIC 


LOAD 


NUCLEAR MOUNTAIN 


GUNTEST 


.BAS 


BASIC 


LOAD 


GUN ASSIST 


GUNVDIM 


.COM 


ML 


<t4) 


GUN ASSIST 


CAPITAL 


.COM 


ML 


(#3) 


CAPITAL! 


PICTPEHF 


.BAS 


BASIC 


LOAD 


PICTURE PERFECT 


MLEDITOR 


• BAS 


BASIC 


LOAD 


M/L EDITOR 


EDITORII 


. LST 


BASIC 


LIST 


BASIC EDITOR II 


SIDE 2: 










FILENAME 


.EXT 


LANG. 


LOAD 


ARTICLE NAME 


SYSEQU 


■ M65 


MAC/ 6 5 


LOAD 


GUN ASSIST SOURCE 


GRAPHICS 


.M6S 


MAC/65 


LOAD 


GUN ASSIST SOURCE 


GUNVBIM 


.M65 


MAC/65 


LOAD 


GUN ASSIST SOURCE 


IOMAC 


.LIB 


MAC/ 6 5 


LOAD 


GUN ASSIST SOURCE 


CAPTIAL1 


.M6S 


MAC/65 


LOAD 


CAPTIAL! SOURCE 


CAPTIAL2 


.M65 


MAC/65 


LOAD 


CAPTIAL! SOURCE 


CAPTIAL3 


.M65 


MAC/65 


LOAD 


CAPTIAL! SOURCE 


CAPTIAL4 


.M65 


MAC/65 


LOAD 


CAPTIAL! SOURCE 


CAPTIAL5 


.M65 


MAC/65 


LOAD 


CAPTIAL! SOURCE 


CAPTIAL6 


.M65 


MAC/ 6 5 


LOAD 


CAPTIAL! SOURCE 


PICTPERF 


.M65 


MAC/65 


LOAD 


PIC. PERFECT SOURI 


TO LOAD ' 


TOUR 


ANALOG DISK 





1) INSERT BASIC CARTRIDGE (NOT REQUIRED FOR XE 

OR XL COMPUTERS) . 
2] TURN ON DISK DRIVE AND MONITOR. 
3) INSERT DISK IN DRIVE. 
<1) TURN ON COMPUTER. (XL AND XE OWNERS: DO NOT 

HOLD DOWN OPTION KEY ! ) 



MG: BEFORE YOU RUN A PROGRAM, READ THE 
APPROPRIATE ARTICLE IN THE MAGAZINE. 
FAILURE TO DO SO MAY YIELD CONFUSING 
RESULTS. 

ONLY PROGRAMS WITH THE .BAS, .COM 
OR .OBJ EXTENSION MAY BE RUN FROM 
THE MENU. OTHER PROGRAMS SHOULD BE 
LOADED AS INSTRUCTED IN THE LOADING. 
NOTES AND MAY REQUIRE ADDITIONAL 
SOFTWARE AS LISTED BELOW. HOWEVER, 
YOU SHOULD NOT ASSUME THAT EVERY FILE 
WITH THE PROPER FILE EXTENSION WILL RUN 
FROM THE MENU. YOU MAY HAVE TO MOVE 
CERTAIN PROGRAMS TO A DIFFERENT DISK 
TO OBTAIN CORRECT RESULTS. 



EXT DESCRIPTION 



.M65 REQUIRES THE MAC/65 ASSEMBLER 

.AHA REQUIRES THE ATARI MACRO ASSEMBLER 

.ASM REQUIRES THE ATARI ASSEMBLER/EDITOR 

.ACT REQUIRES THE ACTION! CARTRIDGE 

.LGO REQUIRES THE ATARI LOGO CARTRIDGE 

.SYN REQUIRES THE SYNAPSE SYN ASSEMBLER 



LOADING NOTES 



LOAD BASIC PROGRAM: 
ENTER BASIC PROGRAM: 
LOAD MAC/65 PROGRAM: 
ENTER ASM/ED PROGRAM: 
LOAD LOGO PROGRAM: 
LOAD SYN/AS PROGRAM: 



LOAD "D: FILENAME. EXT" 
ENTER "D:FILENAME.EXT" 
LOAD #D: FILENAME. EXT 
ENTER »D:FILENAME.EXT 
LOAD "D:FILENAME.EXT" 
LOAD "D: FILENAME. EXT" 



SEE ACTION! MANUAL. 

SEE ATARI MACRO ASSEMBLER MANUAL. 

MAY ALSO BE LOADED FROM DOS USING THE "L" 

OPTION OF THE DOS MENU. 

THIS FILE SHOULD BE TRANSFERRED TO ANOTHER 

DISK AND RENAMED "AUTORUN. SYS" . 

READ THE APPROPRIATE ARTICLE FOR INSTRUCTIONS 

ON USING THIS FILE. 
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Attention 
Programmers! 



ANALOG Computing is interested in programs, articles, and software review sub- 
missions dealing with the Atari home computers. If you feel that you can write as well 
as you can program, then submit those articles and reviews that have been floating 
around in your head, awaiting publication. This is your opportunity to share your knowl- 
edge with the growing family of Atari computer owners. 

All submissions for publication, both program listings and text, should be provided 
in printed and magnetic form. Typed or printed copy of text is mandatory and should 
be in upper and lower case with double spacing. By submitting articles to ANALOG 
Computing, authors acknowledge that such materials, upon acceptance for publica- 
tion, become the exclusive property of ANALOG Computing. If not accepted for pub- 
lication, the articles and/or programs will remain the property of the author. If submissions 
are to be returned, please supply a self-addressed, stamped envelope. All submissions 
of any kind must be accompanied by the author's full address and telephone number. 



Send your programs and articles to: 

ANALOG Computing 

P.O. Box 1413-M.O. 

Manchester, CT 06040-1413 




Previously, I referred to BASIC as an 
"interactive" language; that is, a lan- 
guage that easily allows for data to 
flow from the user to the computer 
and vice versa. BASIC'S excellent 
string-handling functions are probably as 
much responsible for this ease of interaction 
as any other element of the language. 

A string is simply a series of characters 
stored consecutively in memory. This data 
type allows us to store text in variables as eas- 
ily as we can store numbers. This text can 
be a single character, a single word, a single 
sentence or even a complete document. 

String variables, unlike numerical varia- 
bles, must be "dimensioned" before we can 
use them. When we dimension them, we're 
telling the computer how much memory we 
need for the string. We don't have this 
problem with numerical variables because a 
numerical value, no matter how large it is, 
always fits in the same amount of memory. 
To dimension a string variable, we use the 
BASIC keyword DIM: 

10 DIM NAMES (26) 



variable called STRINGS, and that we will 
be storing no more than 20 characters in that 
string. We can store less than 20 if we wish, 
but BASIC won't allow us to store more than 
20. 

Another thing you should notice is the "$" 
in the variable name. String variable names 
always end with a dollar sign. That's how 
BASIC knows we're talking about a string and 
not a numerical array. (We'll get into arrays 
later.) Here are some other examples of string 
variable names: 

ADDRESSS 
TITLES 
PAGES 
WORDS 

Once dimensioned, we can use a string 
variable in our program in a number of ways. 
There are many BASIC functions that allow 
us to manipulate strings in useful ways, the 
most obvious function being a string as- 
signment: 

20 NAME$="ANAL0G Computing 



With this single line, we have told the com- In the line above, we've stored the two 
puter that we are going to be using a string words, "ANALOG Computing," into the 



string variable NAMES. Notice that we've 
used only 16 characters, rather than the full 
20. (The space character counts.) To verify 
that those two words are indeed stored in the 
variable, we can add this line to Lines 10 and 
20: 

38 PRINT NAMES 

Type Lines 10 through 30 into your com- 
puter and run the program. This is what 
you'll see on the screen: 

ANALOG Computing 

The print statement in Line 30 has proven 
to us that NAMES contains the two words we 
assigned to it in Line 20. Now add these lines 
to the program: 

40 NAME$="ANAL0G Conputing 
nagazine" 
50 PRINT NAMES 

Do you see a potential problem with Line 
40? The string that we're assigning to 
NAMES is 25 characters long, five charac- 
ters longer than we dimensioned the string 
for. What do you suppose will happen? Run 
the program, and you'll see this on your 
screen: 



40 
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uum 



?OSs 




ANALOG Conputing 
ANALOG Conputing nag 

BASIC didn't care that we tried to assign 
an oversized string to NAMES; on the other 
hand, it didn't let us get away with it either. 
The string was truncated to fit, so that 
NAMES would contain only the first 20 
characters. 

Another way we can assign a string to a 
string variable is to use the INPUT com- 
mand. We've used INPUT previously to get 
values from the keyboard for numerical vari- 
ables. Using INPUT with strings is very 
similar: 

10 DIM IN$C26) 

20 PRINT "Type a string:" 

30 INPUT IN$ 

40 PRINT "Voup string is: 

";IN$ 

Type the above program into your com- 
puter and run it. You should see something 
like this on your screen: 

Type a string: 

?TEST 

Vour string is: TEST 

In the above program run, the user typed 
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the word TEST after the ? prompt. Thanks 
to the INPUT statement in Line 30, the string 
was stored in IN$. In Line 40 the string was 
printed to the screen. 

String variables can also be assigned values 
from other string variables: 

10 DIM S1$C10),S2$C18) 

20 PRINT "Type a string: " 

30 INPUT Sl$ 

40 S2$=S1$ 

50 PRINT "Sl$ = "JS1$ 

60 PRINT "S2$ = ";S2$ 

When you run the above program, you'll 
get something like this on your screen: 



Type a string: 

7TEST 

Sl$ = TEST 

S2$ = TEST 

In Line 40 we assign the value of Sl$ to 
S2$. Lines 50 and 60 print the text stored in 
both variables, proving that the assignment 
took place just as we expected. Also notice, 
in Line 10, that we can dimension more than 
one string variable with a single DIM state- 
ment by separating each string variable with 
a comma. 



Advanced string manipulation 

Some forms of BASIC allow programmers 
to combine strings with simple assignments 
such as this: 



C$=A$+B$ 

Unfortunately, Atari BASIC won't allow us 
to do that, or at least won't allow us to do 
it that simply. Let's say that we've got two 
strings, FIRSTNAMES and LASTNAME$, 
which we want to combine into a single string 
called NAMES. We can do it, but first we 
have to understand a little more about how 
strings are placed in memory. 

When we assign a string to a string vari- 
able, each of the characters that make up the 
string are stored in contiguous bytes of 
memory. For example, let's say that 
FIRSTNAMES contains BENNY. In the 
computer's memory, it looks something like 
this: 

12 3 4 5 



BENNY 



FIGURE 1 



Now let's assign to each letter of the string 
a number based on its position in the string. 
In other words, B gets the number 1, E the 
number 2, and so on all the way to Y, which 
gets the number 5. Now we have a way to 
refer to each letter in the string. In BASIC 
we use those position numbers by adding 
"subscripts" to the string variable's name. 

For example, if we wanted to refer to only 
the first three letters of FIRSTNAME$, we 
would use FIRSTNAME$(1,3). This tells 
BASIC that we want a portion of 
FIRSTNAME$ that starts with the first 
character and ends with the third. If we want- 
ed the last three letters, we would use 
FIRSTNAME$(3,5). If we wanted the two 
N's, we would use FIRSTNAME$(3,4). Do 
you see how it works? 

Type in and run the following program: 



16 DIM FIRSTNAMES(10),LAST 

NAMES (16), NAMES (26) 

26 FIRSTNAMES="BENNY" 

36 LASTNAMES="HILL" 

46 NAMES=FIRSTNAMES 

56 NAMES £6, 6)=" " 

66 NAMES (7, 16) ^LASTNAMES 

78 PRINT "FIRSTNAMES = ";F 

IRSTNAMES 

80 PRINT "LASTNAMES = ";LA 

STNAMES 

98 PRINT "NAMES = ";NAME$ 

A run of this program should give you: 



FIRSTNAMES = BENNV 
LASTNAMES = HILL 
NAMES = BENNV HILL 



Let's see what's going on here. Line 10 
dimensions the three strings we'll be using 
in the program. Lines 20 and 30 assign values 
to FIRSTNAMES and LASTNAMES. In 
Line 40 we indirectly assign the string BEN- 
NY to NAMES. 

Now comes the tricky part. First we need 
a space between the first and last names. In 
Line 50 we add this space to NAMES giv- 
ing us "BENNY". Translating the BASIC into 
English, we've told BASIC to place a space 
character starting at the sixth character of 
NAMES and ending with the sixth character 
of NAMES. This is how we refer to a single 
character in a string. 

In Line 60 we tell BASIC to place whatever 



is in LASTNAMES (in this case, HILL) into 
the seventh through tenth characters of 
NAMES, giving us BENNY HILL. Then in 
Lines 70 through 90, we print out the strings 
stored in each of the variables, proving that 
we really did combine the two strings into 
one. 

Of course, we're not always going to know 
exactly how large a string is, so we're not al- 
ways going to be able to refer to the end of 
a string with a number. Suppose, for exam- 
ple, that we changed Lines 20 and 30 to: 



20 PRINT "First nane";:INP 
UT FIRSTNAMES 

30 PRINT "Last nane";:lNPU 
T LASTNAMES 



If I were to run this program and use my 
own name as input, the results would look 
like this: 

First nane?CLAYT0N 
Last nane?WALNUM 
FIRSTNAMES = CLAYTON 
LASTNAMES = WALNUM 
NAMES = CLAYT WALH 

Clearly, we need a way to refer to the length 
of a string without knowing in advance what 
that length is. And, happily, we have just such 
a function in Atari BASIC— the LEN 
function. 

The LEN function returns the number of 
characters currently stored in a string vari- 
able. For instance, if NAMES contained the 
string FELIX, the BASIC command 
LEN(NAME$) would return a value of 5. We 
can use the LEN function to modify our 
string-manipulation program so that it can ac- 
cept any first and last names and still produce 
correct results (as long as the names don't ex- 
ceed the dimensioned lengths of our strings). 
Change Lines 50 and 60 of the sample pro- 
gram to: 



50 L=LEN (NAMES) : NAMES CL+1) 
66 NAMES (L+2)=LASTNAMES 

Now when I run the program and input my 
name, I get: 



First nane?CLAYT0N 
Last nane?WALNUM 
FIRSTNAMES = CLAYTON 
LASTNAMES = WALNUM 
NAMES = CLAYTON WALNUM 

That's more like it! 

Can you follow the program? After we as- 
sign the string in FIRSTNAMES to NAMES, 
we get the length of the string and store it 
in the numerical variable L. The string 
CLAYTON is seven characters long, so we 
want to place the space in the eighth charac- 
ter, or in L+ 1. 

Notice that, in Line 50, we're using only 
one subscript. This is perfectly legal, but we 
have to make sure we understand what we're 
doing. With the command NAME$(L+ 1)=" 
", we're telling BASIC to place a space in po- 
sition L+ 1 and to delete anything else from 
that point on. For example, if NAMES was 
equal to "FREDDY," the command 
NAME$(4)=" ' would leave us with 
"FRE." If we had used two subscripts, 
NAME$(4,4)=" ", we'd have gotten 
"FRE DY". Big difference. 

Getting back to the sample program, in 
Line 60 we add the last name to NAMES at 
the location L+2, which, when using my 
own name, adds the string WALNUM after 
the space we just placed in position 7. 

One final note: we don't need to use the 
variable L in the above program. We can use 
the LEN function itself as our subscript, like 
this: 



50 NAMES (LEN (NAMES) +1)=" " 
60 NAMES (LEN (NAMES) +1)=LAS 
THAMES 



This may look confusing at first. Just 
remember that LEN(NAMES) in Line 50 and 
LEN(NAME$) in Line 60 are not the same 
value. Why? Because in Line 50 we added 
a space to the string, making it one charac- 
ter longer. 

Conclusion 

Strings in Atari BASIC are powerful data 
types, and this discussion has only scratched 
the surface. In future installments, we'll see 
some very unusual ways to use strings, but 
for now make sure you understand the basics. PI 
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ENTERTAINMENT 



12 ADAMS ADVENTURES . . 


L4 


95 


ALIANTS 


?fi 


9 5 


ALT. REALITY CITY 


2b 


9 5 


ALT. REALITY DUNGEON. 


26 


95 


BEYOND CASTLE WOLF. . . . 


14 


95 


[I I SHARK 


2b 

26 


'15 


UOI> i, WRESTLE 


95 




26 

17 


95 


UOULDERDAS1I CONSTR.SET 


95 




17 

1-1 




CASTLE WOLFENSTEIN. . . . 


95 


DALLAS OUEST 


7 


9 5 


D-BUC. 


7 
31 


9 5 


F-l r i STRIKE EAGLE .... 


50 


FIGHT NIGHT 


.1 / 


9 5 


GAUNTLET (6-1K) 


31 


50 


DEEPER DUNGEONS 


2 2 


50 


GUNSLINGER 


2 6 


9 5 




7 
9 




JAWBREAKER 


95 


KARATKKA 


IJ 


50 


KNICKERBOCKERS 


1J 


50 




1J 

B 
13 
13 




LAST V-8 


95 




50 


MAIL ORDER MONSTERS .. 


50 


MICROLEAGUE BASEBALL.. 


35 


95 


MONTEZUMA'S REVENGE... 


14 


95 


MOUSEOUEST 


1 7 


95 


MOON SHUTTLE 


7 

a 
9 


95 




9 5 




95 


O'KILEY'S MINE 


9 


95 


FiRATES OF BARB. COAST 


22 


50 


PREPPTE I £ II 


9 


9 5 


RESCUE ON FRACTALAS... 


13 


50 




n 


50 




8 


95 


SPIDERMAN 


35 


SPITFIRE 40 


Jl 


50 








SPY VS . SPY III 


17 


95 


STOCKMARKET 


22 
2 6 
17 


50 




95 


SUMMER GAMES 


95 




9 

2 6 






15 


TOMAHAWK (6-fK) 


95 


TOP GUNNER 


17 
13 


9 5 


TOUCHDOWN FOOTBALL . . . 


50 


TRATI. BLAZER 


2 6 


95 






95 

50 


ZAXXON (400/800) 


13 


PROGRAMMING 




ACTION 1 


71 


95 


ACTION! TOOLKIT 


26 


95 


BASIC XL 


53 
26 


95 


BASIC XL TOOLKIT 


95 


BASIC XE 


71 
7 


9 5 




95 




in 


no 


DISK I/O 


26 


95 




62 

15 






9 5 


LOGO 


11 


9 5 


MAC/65 


7 1 


95 


HAC/65 TOOLKIT 


26 


95 


MACRO ASSEMBLER 


22 


50 




l'J 
71 

Y 






95 


PRODUCTIVn 




ANIMATION STATION .... 


89 


95 




20 
)19 


95 


ATARIHRITER (CART ONLY 


95 


ATARIWRITER+ 


39 


95 


ATARI BOOKKEEPER 


24 


95 


ATARI MUSIC II 


14 


95 



INVENTORY MASTER . . 

LETTER WIZARD 

MUSIC CONSTRUCTION SET 13 
NEWSROOM (1050 - 6-1K). 44 

NEWS STATION 

NEWS STA. COMPANION 

PAGE DESIGNER 

PRINT POWER ( 10 50) . 



80 . 9 J 

29. 9 r 



9 5 
26.95 
26.95 
2 6.95 
13.50 



34 . 
24 . 



17.9 = 
17.9T 
17.9 5 



35 
26 



6.9!; 



44 
26 
17 
29 



9 . 9 5 

9.95 

14.9 5 



PR1NTSHOP 

P.S. COMPANION (64K) 
P.S.GRAPHICS LIBRARY 1 17.95 
P.S.GRAPHICS LIBRARY 2 
P.S.GRAPHICS LIBRARY 3 

PROOF READER 

PUBLISHING PRO . . . 

RUBBER STAMP 

SYNTREND (130XE) 3 5 . 9 ! 

SUPER MAILER 35. 9£ 

THE LOTTO PROGRAM .... 17. 9! 

TIMEWISE 

TURBOWORD/80 COLUMN 

REQUIRES XEP00 

VIDEO TITLESHOP (64K). 

GRAPHICS COMPANION. 

VIRTUOSO 

VISICALC 24 . 

EDUCATION 

ATARI LIGHT MODULE 

(REt). STARTER SET) . 9. 

BUZZWORD 35, 

GRANDMA'S HOUSE (-10) 
HEY DIDDLE (ACE 3-10). 

MASTER TYPE 

STATES AND CAPITALS . . 

TOUCH TYPING 

CBS (AGE 3-6) : 

ASTROGROVER 

BIG BIRD SPEC DELIVE 8. 

ERNIE'S MAGIC SHAPE. 8. 
DESIGNWARE: 

MATHMAZE (6-11 ) .... 35. 

MISSION ALGEBRA (13+) 35. 

SPELLICOPTER (6-11). 35. 
TINK TONK (ACE 4-6) : 

ABC ' S 

COUNT AND ADD 

SMART Till NKEH 

SPELLING 

SUBTRACTION 

THINKING SKILLS . . . 
ALL 6 TINK TONKS. 
UNICORN: 

10 LITTLE ROBOTS 

(PRE -SCHOOL) 26.95 

FUN BUNCH (6-ADOLT) 26.95 

RACECAR RITHMETIC 

(AGE 6+) 26.9 5 

WEEKLY EEADER ( PRE-SCIIOOL ) : 

STICKY BEAR SHAPES . 26.9!; 

STICKY BEAR NUMBERS. 26.95 

STICKY BEAR ABC'S .. 26.96 

STICKY BEAR OPPOSITE 26.9 5 

SB BASKET BOUNCE ... 26.9 5 

STICKY BEAR UUP .... 20.91 

RUN FOR IT 26.95 

PIC BUILDER 26.95 



8.9 5 
8.95 
8.95 
8.95 
8.9 5 
8.9 5 
39.9 5 



<^.„ 



8 00/ XML./ XE SOF~rW/\ 

ALL TITLES ON CARTRIDGE 



It li 



AWARDWARE (1050) 13.50 

BANK STREET WRITER 14.95 

BLAZING PADDLES 31.50 

CELEBRITY COOKBOOK ... 26.95 

COMPUTE YOUR ROOTS ... 35.95 

DATAMANAGER 17.95 

FAMILY FINANCE 6 . 'J 5 

GUITAR WIZARD 26.95 

HOME ACCOUNTANT 19.95 

HOME FILING MANAGER. . 6.9 5 

HOMEPAK 24 .95 



PKTNTK1T (1050) 13.50 



8 . 9 5 



ENTERTAINMENT 

3D TIC-TAC-TOE 9.95 

AIRBALL (XL/XE) 24.95 

ALIEN AMBUSH 9.9 5 

ACE OF ACES , (XL/XE) . 24.95 

ARCHON 19.95 

ASTEROIDS 15.95 

ASTRO CHASE 14 .95 

ATARI TENNIS 9.9 5 

ATLANTIS 14 .95 

BALL BLAZER 19.95 

BARNYARD BLASTER 

(REQ. LIGHT GUN) ... 24 .95 

BATTLEZONE 19.95 

B.C. QUEST FOR TIRES 19.95 

BLUE MAX 19 .95 

BOULDERS & BOMBS .... 14.95 

CAVERNS OF MARS 14.95 

CENTIPEDE 14 .95 

CHICKEN 9.95 

CIIOPLIFTER 14.95 

CLAIM JUMPER (4 00/800) 9.9 5 

CLOUDBURST 9.95 

CRIME BUSTER 

(REQ. LIGHT GUN) . . 24 

CROSSBOW 24 

CROSSFIRE 9 

CRYSTAL CASTLES (XL/XE) 19 

DARK CHAMBERS (XL/XE). 24 

DAVIDS MIDNIGHT MAGIC 19 

DEFENDER 14 

DELUXE INVADERS 7 

DESERT FALCON 19 

DIG DUG 19 

DONKEY KONG 5 

DONKEY KONG JR 19 

EASTERN FRONT (1941). I 1 ) 

E.T. PHONE HOME 9 

FIGHT NIGHT 19 

FINAL LEGACY 19 

FOOD FIGHT (XL/XE) ... 19 

FOOTBALL 14 

FROGGER 14 

GALAXIAN 9 

GATO 24 

GORF (400/800) 5 

GYRUSS 14 

HARDBALL 19 

INTO THE EAGLES NEST 19 

JOURNEY TO PLANETS . . 9 

JOUST 19 

JUNGLE HUNT 19 

KABOOM1 14 

KARATEKA 19 

KRAZY ANTICS 11 



95 
9 5 
9 5 
95 
95 
95 
9 5 
9 5 
9 5 
9 5 
00 
9 5 
95 
9 5 
9 5 



9 5 
95 
95 
9 5 
00 
95 
95 
95 
95 
9 5 
9 5 
9 5 



LODE RUNNER 24 

MARIO BROS 19 . 

MEGAMAN1A 9 , 

MILLIPEDE 14, 

MISSILE COMMAND 5 

MOON PATROI 19 

MR . COOL 9 

MS. PAC MAN 19 

NECROMANCER 19 

ONE ON ONE (XL/XE) ... 19 

PAC MAN 5 

PENGO 19 

POLE POSITION 19 

POPEYE 14 

0-BERT 14 

QIX 14 

RESCUE ON FRACTALAS . 19 

RETURN OF THE JEDI . . 14 

ROBOTRON:2084 19 

SKY WRITER II 

SLIME (400/800) 9 

SPACE INVADERS 11 

STAR RAIDERS 5 

STAR RAIDERS IT 19 

SOBMARINEE COMMANDER 14 

SUMMER GAMES (XL/XE). 24 

SUPER BREAKOUT 9 

SUPER COBRA 14 

THUNDEHFOX 19 

TRACK (. FIELD 24 

TURMOIL 9 

WIZARD OF WOR 5. 

PRODUCTIVITY 

ATARIWRITER 19.9 

MICROFILER 22. 5 

EDUCATION 

ATARI LAB STARTER SET . 29.9 

FUN WITH ART 14 . 'J 

MATH ENCOUNTERS 9 . 'J 

FISHER PRICE (PRE SCHOOL): 

DANCE FANTASY 8 . 'J 

LINKING LOGIC 8 . 'I 

LOGIC LEVELS 8 . 'J 

MEMORY MANOR 8 . 'J 

SPINNAKER (AGE 3-10): 
ALF IN COLOR CAVES . 9.9 

ALPHABET ZOO 9.9 

DELTA DRAWING 9 . 'J 

FACEMAKER 9.9 

KIDS ON KEYS 9.9 

KINDERCOMP 9.5 

(AGE 7 - ADULT) : 

ADV. CREATOR (4 00/800 
FRACTION FEVER 



J.9.95 



JL 



RECONDITIONED ATARI MKRCHANDISK 

30 DAY WARRANTY 



Slid (-1XK) 

COMPUTER 

$79.95 

400 (16K) 
COMPUTER 

$29.95 



1020 COLOR 
PRINTER/PLOTTER 

$19.95 



40 COLUMNS WIDE 
(new in box) 



SPACE AGE 
JOYSTICK 

$5.00. 

ATARI 
TRACKBALL 

$9.95 



ATARI 
BOOKKEEPER 
$14.95 - NO BOX 

ATARI 

NUMERIC 

KEYPAD $7.95 



1030 MODEM 
WITH EXPRESS! 

$24.95 

10 Id PROGRAM 
RECORDER 

$29.95 



DISKETTES 
AS LOW AS 20 CEN'I 

10 FOR S4.00 

100 FOR $29.95 

1000 POR $200 

MOST ARE UNNOTCI1B1 

Willi OI.II.SOIT WARJ: 



SHIPPING INFORM ATI ON - Prices do not include shipping niul li and ling. Acl il $5.00 foi small items ($8.00 Mill, lot Canada). Add $8.00 lor disk drive . Add $2.75 for C.O.D. 
Calif, res. include 7<"r sales tax. Mastercard and Visa accepted if your telephone is listed in your local phone directory. Orders may be pre-paid with money order, cnshiei 
check, or personal check. Personal checks are held for three weeks before order is processed. C.O.D orders are shipped via UPS and must be paid with cash, cashier check or 
money order. International and APO orders must be pre-paid with cashier check or money order. $20.00 minimum on all orders. All sales are final - no refunds - prices an 
subject to changei 

Phone orders accepted TUESDAY THROUGH FRIDAY from 10:00 am to 6:00 pm PST. 
Wc carry a full line of ATARI products - large public domain library - write or call for free catalogue 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE - ALL SALES ARE FINAL 



CIRCLE #103 ON READER SERVICE CARD. 



us 



iture 
•fe 

LISTING 1: BASIC 



HO 1 REM KXXMXXXMXXMMXHXMXXXXXMXXXXMXMX 
XE 2 REM * PICTURE PERFECT * 
OG 3 REM * BY JOE D. BRZUSZEK * 
ZD 4 REM * * 

IN 5 REM * COPYRIGHT 1989 * 
PM 6 REM * BY ANALOG COMPUTING * 
HU 7 REM XXXMXXXXXXXXXXXXXXXXXKMXXXXXXX 
KQ 9 GOTO 8008 
AF 20 T=USRC23043) ! T=PEEK C286) :X1=PEEKC20 

3) :Y1=PEEKC284) : IF NOT T THEN 20 
HF 30 IF T>Vi THEN GOSUB UC:GOTO UA 
ZU 40 RETURN 
FI 56 T=U5RC23843) :T=PEEKC286) :X1=PEEKC28 

3) :Y1=P EEKC284) : R ETURN 

ez 99 rem KHaujEniai 

HN 100 ON T=U33 AND AN GOTO 2200 : IF T=U33 

THEN 1700 
HD 110 IF T=13 THEN GOSUB 1600 
IX 128 IF T=U8 THEN SP=SP+U1:IF SP>U4 THE 

N SP=U1 
UX 130 IF T=ll THEN C1=C1+UI : IF C1=U4 THE 

N C1=Z 
TN 148 POKE 22876, INT CSP*1 . 3J : RETURN 
QE 199 REM Wa'MUMMiWXa 
UK 288 GOSUB UN:X=Z;ON A$="" GOTO 2200 :A= 

U5RCCY,Si,Z,Z,159,95,S2,Z,U96,U3) 
CX 210 FOR Y=U1 TO LEN CA$) STEP U4:A=USRC 

CY, SI, ASC CA$ CY) ) , ASC CAS CY+U1) J , ASC CAS C 

Y+U2) ) , ASC CAS CY+U3) ) , SI, Z, Z, U3) 
RM 220 FOR Y1=Z TO X:NEXT YliNEXT Y:IF PE 

EK 1532793 =V3 THEN X=X+UA:POKE 53279, Z: 

IF X>UC THEN X=Z 
XL 230 GOSUB UBilF T THEN A=USR CCY, S2, Z, U 

96,159,190,S1,Z,Z,U3) :GOTO 2200 
MK 248 GOTO 210 
ZX 259 REM BBBHi 
GU 268 GOSUB UN : IF NOT S THEN GOSUB UB : S 

=U1:X4=X1:Y4=YI 
XE 270 POKE 23038, X4+45IP0KE 23031, Y4+36: 

GOSUB UB 
RC 280 A=USRCCY,S1,X1,Y1,X1+X3,Y1+Y3,S2,X 

i,U96,U3) :A=USRCCY,52,Z,Z,X3,Y3,S1,X1, 

Y1,C2) 
AJ 298 X4=Xl:Y4=Yl: GOSUB UBiON T=U1 GOTO 

280 
KR 300 IF T=U33 THEN A=U5R CCY, 52, X4, U96, X 

4+X3,Y3+U96,Sl,X4,Y4,U3) SPOKE 53279, Z: 

GOTO 900 
UM 310 IF T THEN GOSUB UC 
BJ 320 ON X1=X4 AND Y1=Y4 GOTO 298:A=USR( 

CY,S2,X4,U96,X4+X3,Y3+U96,Si,X4,Y4,U3) 

JGOTO 280 

DO 389 REM MjEBEBSMBHSM 

ZB 398 GOSUB UM:? "K ► ►► ►Halve" : IF X=U8 TH 

EN ? "IS ►►►►Double" 
HN 488 ? "►►►►H++U++OK"; :Y=U1 
XO 410 POSITION 30, Y:? " ";:GOSUB UA : Y1=I 

NTCYi/U8):IF YKUi OR Y1>U3 THEN RETUR 

N 
UG 428 IF YKU3 THEN Y=Y1 : GOTO 410 
CO 430 X=U8/X:? "KPlease waittt":ON Y=U2 

GOTO 470IIF X3>79 AND X=U1 THEN X3=79 
FK 450 FOR Y=Z TO X3 STEP X : A=USR CCY, S2, Y 

,Z,Y,Y3,S2,Y*U2/CX*X),U96,U4) 
AA 460 A=USRCCY,52,Y,Z,Y,Y3,S2,Y*U2/CX*X) 

+ABSCV2~X),U96,U4) : NEXT Y:POKE 203, CX3 

+U1)*U2/X/X : X3=PEEK C203) -Ul : GOTO 560 
SA 470 IF Y3>47 AND X=U1 THEN Y3 = 47 
GZ 488 FOR Y=Z TO Y3 STEP X : A=U5R CCY, 52, Z 

, Y, X3, Y, 52, Z, U96+Y*U2/ CX*X) , U4J 
FN 498 A=U5RCCY,S2,Z,Y,X3,Y,S2,Z,U96+Y*U2 

/CX*X)+ABSCU2~X),U4) iNEXT Y SPOKE 283, t 

Y3+U1)*U2/X/X ! Y3=PEEK C203) -Ul : GOTO 568 



IY 499 REM MMSIM 

HX 568 GOSUB UM:? "H ► ► >F1 ip++H+*U++0K"; : Y 

=U1 
FY 510 POSITION 25, Yi? " "J 
IN 520 GOSUB UA:Yi=INTCYi/U8) ! IF Y1<U1 OR 

Y1>U3 THEN RETURN 
NM 538 IF YKU3 THEN Y=Y1:G0T0 510 
RL 540 ? "^Please wait++":IF Y=U1 THEN FO 

R X=Z TO X3:A=USRCCY,S2,X,Z,X,Y3,S2,X3 

-X,U96,U4J :NEXT X:GOTO 560 
KR 550 FOR X=Z TO Y3 : A=USR CCY, S2, Z, X, X3, X 

,S2,Z,U96+Y3-X,U3) :NEXT X 
JH 560 A=USRCCY,S2,Z,U96,X3,Y3+U96,S2,Z,Z 

,U3) :GOTO 268 
OR 899 REM 1133131 
AB 900 GOSUB UA : X2=X1 : Y2=Y1 : A=U5R CCY, 51,X 

2 # Y2,159,Y2+95,S2,X2,U96,U3) 
OH 910 TRAP 928: IF AN THEN POKE 23030,X2+ 

ASC CAS CU3) J -ASC CAS CU1J ) +45 : POKE 23031, 

Y2+A5C CAS CU4) J -ASC CAS CU2J J +36 
GB 920 GOSUB UB : IF Y1<Y2 THEN Y1=Y2 
UE 930 IF Xi<X2 THEN X1=X2 
SO 940 IF Yl-Y2>95 THEN Yl=Y2+95 
MM 950 X=USRC23540,X2,Y2,X1,Y1,C1) :A=USRC 

CY,S2,X2,U96,X1,U96+Y1-Y2,S1,X2,Y2,U3J 

:IF NOT T THEN 928 
PC 968 IF T>U1 AND TOU33 THEN GOSUB UC : G 

OTO 920 
BQ 978 ON T=U33 GOTO 900: IF NOT AN THEN 

A=USRCCY,S1,X2,Y2,X1,Y1,S2,Z,Z,U4J : X3= 

X1-X2 ! Y3=Y1-Y2 ! X4=X2 : Y4=Y2 : GOTO 268 
BA 980 Y=LENCAS):IF Y=U2*UC THEN 2280 
HZ 990 ASCY+U1)=CHRSCX2) : AS CY+U2J =CHRS CY2 

J ! AS CY+U3) =CHR$ CXI) : AS CY+U4J =CHRS CY11 ! 

POKE 23030, X2+45: POKE 23031, Y2+36 
QC 1O0O GOTO 908 
DZ 1599 REM ■■HI:Mili» 
SS 1688 P1=AB5CP1-U1) 
EF 1610 Si$="¥**¥H***¥":IF Pi THEN SlS="¥ 

¥¥¥*V¥¥¥" 
CY 1628 FOR T=U1 TO 9 : POKE 23032+T, ASC CS1 

S CT, T) ) i N EXT T: RETURN 
ZA 1699 REM UHAlilM 
HO 1788 POP :Y=28828:G0SUB 2010 
XK 1710 GOSUB UBiON NOT T GOTO 1710: ON T 

=U1 OR T=U33 OR T=12 GOTO 1728: GOSUB 1 

18: GOTO 1710 
YD 1720 IF Xl>159 OR Y1<U4 OR Yl>35 OR T= 

U33 THEN GOSUB 268 : GOTO 1708 
RN 1738 X=INTCCY1-U4)*O.0634)*U4+INTCX1*0 

.0246)+Ul:0N X GOSUB 2108,3888,588,398 

,2588, 3388, 2268, 398:G0T0 1788 
DU 2888 Y=48524 
LH 2818 POKE 559, Z ! Si$="¥***tJ***¥" : GOSUB 

1620 : POKE 22876, Ul : M=M1 ! Xi=15 : Yl=191 : Y 

2=S1+1640: GOSUB 2090 
TK 2020 POKE DL+468, 65 ! POKE DL+469, PEEK C5 

60) :POKE DL+470,PEEKC561) : M=66 : X1=U3 : Y 

1=U8:Y2=Y: GOSUB 2090 
YD 2838 POKE 709,10:P0KE 710,U2:F0R Y=18 

TO UAiPOKE DL+Y,Z!NEXT YiPOKE DL+15,19 

4:P0KE 559,62:RETURN 
EU 2658 POKE 22876, INT CSP*1 . 3) : M=M1 : X1=U3 

:Yi=195iY2=Sl SPOKE DL+579, 65 : POKE DL+5 

80,PEEKC56O) SPOKE DL+581, PEEK C561) 
SL 2066 POKE 709, PEEK CCR+U2) S POKE 710,PEE 

KCCR+U3) SGOSUB 2890 : GOSUB 1610 S RETURN 
CT 2090 T=US R C2313 8, Y2, M, XI, VI, Z) : RETURN 
PP 2899 REM EjTjTJ 

NC 2186 IF Ml=79 THEN Ml=78s RETURN 
SF 2118 Ml=79 5 RETURN 
QA 2199 REM EgEEiEi 
MJ 2200 AN=Z:G0SUB UM:? "K ► ►Animate* Newi 

□ ►►►Append+nmPlay*" 
TH 2210 GOSUB UA : X=INT CY1/U8) : ON X<U1 OR 

X>U3 GOTO 1786:0N X=U3 GOTO 200:IF X=U 

1 THEN AS="" 



AUGUST A.N.A.L.O.Q. Computing 



OL 2228 AN=U l:GOSU B UN: GOTO 908 
li8 2499 REM HEM 
AU 2508 GQ5U6 UN 

GJ 2518 ? ••*&. Directory ►►£. Rename File" 
UK 2528 ? "B. Main Menu^F. Load File" 
RX 2538 ? "C. Format Disk>G. Save File" 
MV 2548 ? "D. Delete File^H. Unlock File" 
5M 2558 TR AP 255 B:PQKE 84, U4 : ? "DSelect i 

ten or I JA4HJil i " ! : input ttl6,Sl$:IF S1S= 

"" THEN 2518 
OR 2568 X=ASCCSlS)-64:0N X<U1 OR X>U8 GOT 

2558:IF X=U2 THEN RETURN 
IM 2598 ON X <U4 OR X=5 GOTO 2628:? "tdFIL 

ename or DEEHDIj]:"; : input »16,siS:if si 

$="" THEN 2558 
SB 2608 IF S1$CU2,V2)=":" OR Sl$ CU3, U3) =" 

:" THEN 2628 
QX 2618 Xl=LENCSl$)+Ui:Si$CXi)=SiS£Ui,Xi- 

U1J ! SiS CU1, U2) = "D ! " : Sl$ £U3) = SlS f XI, X1+ 

X1-U2J 
AU 2628 TRAP 2788:0N X GOSUB 2630,2578,26 

68, 2688, 2690, 2718, 2718, 2778! CLOSE ttUl: 

G8T0 2558 
HF 2638 OPEN ttUl, 6, Z, "D :*.*": TRAP 2650:? 

"is-; 

DS 2640 POSITION Z,Z:? "D":P05ITION U2,U3 

:INPUT «U1,S1S:? S1$,;:INPUT ttUl,SiS:? 
S1$:G0T0 2640 

BB 2650 RETURN 

BC 2660 ? "iSY to format drive »1 or 1J-HIIJ 

Hi"; :INPUT ttl6,SiS:IF SlSO"Y" THEN RE 

TURN 
TT 2678 XIO 254,ttUl,Z,Z,"D:":RETURN 

JJ 2680 XIO U33,ttUl,Z,Z,5lS:RETURN 

QU 2690 ? "1SD:0LDNAME,NEWNAME or IJ-44H Jil : " 

: INPUT ttl6,SlS:IF SlS="" THEN RETURN 
BS 2700 XIO 32,ttUl,Z,Z,Sl$:RETURN 
XU 2710 X=£X-5)*U4:0PEN ttUl, X, Z, SiS ! ON X= 

U8 G8T0 2730: ON SiS CLEN CSlS) )<>"*" GOT 

2730! FOR Y=Z TO 12: GET ttUl, XI: NEXT Y 
MH 2720 FOR Y=U1 TO U3:GET ttUl,Xl:POKE CR 

+Y,Xl:NEXT Y:GET ttUl,Xl:GET ttUl,Xl:POK 

E CR,Xl:GOTO 2760 
NT 2730 GOSUB UN : POKE 858, X+U3 : P8KE 852,8 

OiPOKE 853,97:P0KE 856,Z:P0KE 857,30:T 

= USR t ADR C"hhh2LUH"J , 16) 
OA 2748 T=Z:IF X=U8 THEN FOR X=Z TO U3:PU 

T ttUl, PEEK ICR+X) : NEXT X:GOSUB UM:RETUR 

N 
BK 2758 FOR X=Z TO U3:GET »U1,Y:P0KE CR+X 

Y ! NEXT X 
YC 2768 X=USRCADRCS2S)) ! GOSUB VHiRETURN 
EF 2778 XIO 36,ttUl,Z,Z,Sl$:RETURN 
FT 2788 X=PEEKC195) :GOSUB UM:? "KError-Q" 

;X:IF X=168 THEN RUN 

BP 2798 RETURN 

SI 2999 REM EDM 

NS 3888 GOSUB UM:? "KFill 8 With " : PEEK fl 

643)!F0R X=Ui TO U3:? "►";X;" With ";P 

EEKC1643+X) : NEXT X:? "►OK" 
NX 3018 G8SUB UA : Y1=INT CY1/U8) : IF Y1>U4 T 

HEN RETURN 
K5 3828 IF Y1=U4 THEN ? "UPlease waittt": 

X=USRC1552) iGOTO 260 
TF 3030 X=PEEK(1643+Y1J :X=X+Ul:IF X=U4 TH 

EN X=Z 
OU 3040 POKE 1643+Y1,X:P05ITI0N 14, Yl : ? X 

;"«-"; :GOTO3010 
CS 3299 REM W3MM 
ZW 3300 GOSUB UM:? "S ► Cel 0+«-I+«-2+*3+ 

*N + *OK",- : POSITION 14,CC2/64):? " ";:G0 

SUB UA:ON Yl>39 GOTO 1700 
MQ 3310 C2=INTCY1/U8)*64:IF C2=256 THEN C 

2=255 
QL 3328 G8T0 260 
XG 8888 P8KE 559,Z:P8KE 566,143:P0KE 567, 

231SP0KE 54279,88 



UJ 8O10 READ U1,U2,U3,U4,U8,U33,U96,UA,UB 

, UC, UM, UN, CY, 51, S2, CI, C2, CR, SP, DL : DIM 

AS CU2*UC) , SIS 163) , 52S C26) 
OZ 8020 READ SiSiFOR X=Z TO UliREAD A$:Y= 

USR CADR CSlS) , ADR £AS) , 1536+X*UC, LEN (AS) 

) INEXT X 
JF 8030 FOR X=Z TO 9 : READ AS : Y=USR IADR CS1 

S) , ADR CAS) , 22841+X*UC, LEN £A$) ) : NEXT X 
US 8040 FOR X=Z TO U1:READ AS : Y=U5R CADR CS 

IS) , ADR CAS) ,20828+X*UC,LEN(AS)) :NEXT X 

:AS="":POKE 560,80:P0KE 561,93 
OJ 8060 FOR X=Z TO U2 : POKE DL+X, 112 : NEXT 

X:Ml=79:G0SUB UM:? "^Picture Perfect+D 

bylClJoe D. Brzuszeki+QPress SEE " 
NL 8878 ON PEEK C53279) =7 GOTO 8070:M1=78: 

GOTO 1700 
JI 90OO DATA 1,2,3,4,8,33,96,20,50,100,20 

00,2050,23253,24912,32624,1,255,1788,1 

,23888 
ML 9889 REM MOUE STRING 
ZA 9819 REM DLI,FILL 

KN 9839 REM UBI, DISPLAY, COPY, FRAME 
DB 9199 REM MENU 



LISTING 2: BASIC 

QY 1 REM PICTURE PERFECT - LISTING2 

NS 2 REM by Joe D. Brzuszek 

TF 3 REM Creates lines 8850 & 9O1O-9210 

TU 4 REM and saves then in D:PICT.LST 

NK 5 REM 

IT 6 REM ENTER "D : PICT . LST" to load 

NM 7 REM 

CA 10 DIM HSC101) :LINE=600:LAST=9OO 

SN 20 GRAPHICS ZiPOKE 752,1:P0KE 710,2 

UD 30 OPEN ttl,8,Z,"D:PICT.LST":? "OPENING 

D:PICT.LST FOR OUTPUT" ! TRAP 380 
DG 40 READ HS:IF LEN(HS)<>100 AND LINEOL 

AST THEN ? "DATA LENGTH ERROR IN LINE 

";LINE:GOTO 400 
KC 58 LN=PEEKC183)+PEEKC184)*256:IF LN<>L 

INE THEN ? "LINE '^LINEj" IS MISSING!" 

iGOTO 400 
DL 60 ? "CHECKING LINE ";LINE:F0R X=l TO 

99 STEP 2:Yl=ASCCHStX,X))-48:Y2=ASCIH$ 

tX+l,X+l))-48 
IW 70 IF Yl>9 THEN Y1=Y1-7:IF Yl>15 THEN 

390 
LU 80 IF Y2>9 THEN Y2=Y2-7:IF Y2>15 THEN 

398 
LG 98 PUT ttl,Y2+Yl*16:NEXT X : LINE=LINE+10 

iGOTO 40 
TZ 380 IF PEEKC195)=5 AND LINE=LA5T THEN 

? "NO ERRORS FOUND, BUT SAUE LISTING2 

AS A BACKUP JUST IN CASE!":GOTO 400 
OE 390 ? "ERROR AT LINE "jLINE 
XT 4O0 ? "QCLOSING FILE":POKE 752,Z:END 
LY 6D0 DATA 383B35385332243D2268ADFC868DC 

882ADFD668DC482ADFE868D82B6ADFF868DOA0 

660223A583D5553522841445228533224 
RZ 618 DATA 29293A583D5553522841445228226 

8A9O7A039A259205CE4A9O68DO102A9O08DO00 

2A9C08D6ED4682229299B393831384441 
XR 620 DATA 5441686885CC6885CB6885CE6885C 

D681865CE85D8681865CD85CF90O2E6D0A00OB 

1CB91CDE6CBDOO2E6CCE6CDDO02E6CEA5 
EH 630 DATA CDC5CFD0EAA5CEC5D0DOE46O9B393 

0323O4441544148 A9CA8D0AD48D17D8A9948D1 

8D8684868A97885CBA97F85CCA2048E6F 
GL 648 DATA 06A0OOB1CBCE6F06F0O54A4A4C22O 

62903 A8B96B868D7806A9838E6F86CE6F86F88 

B8A8A8E7O860E70O64C3AO649FFA00O31 
PO 650 DATA CB0D7O0691CBCADOC3E6CBD002E6C 



continued on page 56 
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BASIC 

Editor II 



by Clayton Walnum 



BASIC Editor II is a utility to help you 
enter BASIC program listings pub- 
lished in ANALOG Computing. To 
simplify the identification of errors, 
each program line is evaluated im- 
mediately after it's typed, eliminating the 
need for cumbersome checksum listings. 
When you've finished entering a program us- 
ing BASIC Editor II, you can be certain it 
contains no typos. 

An option is provided for those who wish 
to use standard BASIC abbreviations. Also, 
the program retains all Atari editing features. 
Finally, for those who prefer to type programs 
the conventional way, using the built-in edi- 
tor, a post-processing mode is available. It al- 
lows you to check typing after the entire 
listing has been entered. 

typing in the Editor 

To create your copy of BASIC Editor II, 
follow the instructions below— exactly. 

Disk version: 

(1) Type in Listing 1, then verify your work 
with Unicheck (see Issue 39). 

(2) Save the program to di sk with the com- 
mand SAVE '•D-.EDITORL1.BAS". 

(3) Clear the computer's memory with the 
command NEW. 

(4) Type in Listing 2, then verify your work 
with Unicheck. 

(5) Run the program (after saving a back- 
up copy) and follow all the on-screen 
prompts. A data file will be written to your 
disk. 

(6) Load Listing 1 with the command 
LOAD "EDITORL1.BAS". 

(7) Merge the file created by List- 
ing 2 with the command ENTER 

"dml.dat: 



(8) Save the resultant program with the com- 
mand LIST ■•D:EDITDRII.LST". 

Cassette version: 

(1) Type in Listing 1 and verify your work 
with Unicheck. 

(2) Save the program to cassette with the 
command CSAVE. (Do not rewind the 
cassette.) 

(3) Clear the computer's memory with the 
command NEW. 

(4) Type in Listing 2 and verify your work 
with Unicheck. 

(5) Run the program and follow the on- 
screen prompts. A data file will be written to 
your cassette. 

(6) Rewind the cassette. 

(7) Load Listing 1 with the command 
CLOAD. 

(8) Merge the file created by Listing 2 with 
the command ENTER ' 'C: ' '. 

(9) On a new cassette, save the resultant pro- 
gram with the command LIST "C:". 

Using the Editor 

Take a look at one of the BASIC program 
listings in this issue. Notice that each program 
line is preceded by a two-letter code. This code 
is the checksum for that line; it's not a part 
of the program. 

To enter a program listing from the maga- 
zine, load BASIC Editor II with the ENTER 
command, and run it. You'll be asked if you 
wish to allow abbreviations (see your BASIC 
manual). If you do, type Y and press 
RETURN. Otherwise, type N. 

Note: If you set BASIC Editor II to allow 
abbreviations, the program will run slightly 
slower. 

Your screen will now be divided into two 
"windows." The upper window will display 
each line after it's processed, as well as the 



checksum generated for that line. The lower 
window is where program lines are typed and 
edited. 

When the program's waiting for input, the 
cursor will appear at the left margin of the typ- 
ing window. Type a program line and press 
RETURN. The line will be evaluated and 
reprinted in the message window, along with 
the checksum generated. 

If the checksum matches the one in the 
magazine, then go on to the next program line. 
Otherwise, enter the command E (edit) and 
press RETURN. The line you just typed will 
appear in the typing window, where you may 
edit it. When you think the line has been cor- 
rected, press RETURN, and it'll be 
reevaluated. 

Note: You may call up any line previously 
typed, with the command E followed by the 
number of the line you wish to edit. For ex- 
ample, E230 will print Line 230 in the typ- 
ing window. Do not attempt to edit any 
program lines numbered 32600 and higher. 
These lines fall within the BASIC Editor II 
program. 

If you're using BASIC abbreviations, the 
two versions of the command E work slightly 
differently. The command E, without a line 
number, will call up the line exactly as you 
typed it. When you append the line number, 
the line will be printed in its expanded (un- 
abbreviated) form. 

Leaving the Editor 

You may leave BASIC Editor II at any time, 
by entering either B (BASIC) or Q (quit). If 
you type B, the Editor will return you to BAS- 
IC. Enter LIST to review your work, if you 
wish. Note that lines 32600 and above are the 
Editor program. Your work will appear be- 
fore these lines. To return to the Editor, type 
GOTO 32600. 

Type Q, and you'll be asked if you really 
want to quit. If you type Y, the Editor pro- 
gram will be erased from memory, and you 
may then save your work in any manner you 
like. If you type N, the Q command will be 
aborted. 

Large listings 

If the program you're entering is particu- 
larly long, you may need to take a break. 
When you want to stop, type Q and press 
RETURN, then save your work to disk or cas- 
sette. When you're ready to start again, load 
the program you were working on, then load 
BASIC Editor H with the ENTER command. 
Type GOTO 32600, and you're back in 
business. 

AUGUST A.W.A.L.O.O. Computing 



The post-processor 

Many people may not want to use BASIC 
Editor II when entering a program listing, 
preferring, instead, the Atari's built-in editor. 
For that reason, BASIC Editor II will allow 
you to check and edit your programs after 
they've been typed. 

To take advantage of this option, type any 
magazine program in the conventional man- 
ner, then save a copy to disk or cassette (just 
in case). With your typed-in program still in 
memory, load BASIC Editor II with the 
ENTER command, then type GOTO 32600. 

Respond with N to the "abbreviations" 
prompt. When the Editor appears on your 
screen, enter the command P (post-process), 
and the first program line will appear in the 
typing window. Press RETURN to enter it into 
the Editor. 

The line will be processed, and the check- 
sum, along with the program line, will be 
printed in the upper window. If the checksum 
matches the one in the magazine, press 
RETURN twice, and the next line will be 
processed. 

If you find you must edit a line, enter the 
command E, and the line will be moved back 
to the typing window for editing. 

When the entire listing has been checked, 
you'll be asked if you wish to quit. Type Y 
and press RETURN. The Editor program will 
be removed from memory, and you may then 
save the edited program in any manner you 
wish. 

Murphy's Law 

Anyone who's been associated with comput- 
ing knows this is the industry Murphy had in 
mind. You may find that, after typing a pro- 
gram with BASIC Editor n, it still won't run 
properly. There are two likely causes for this. 

First, it may be that you're not following the 
program's instructions properly. Always read 
the article accompanying a program before at- 
tempting to run it. Failure to do so may present 
you with upsetting results. 

Finally, though you can trust BASIC Edi- 
tor II to catch your typos, it can't tell you if 
you've skipped some lines entirely. If your 
program won't run, make sure you've typed 
all of it. Missing program lines are guaran- 
teed trouble. 

One last word: Some people find it an un- 
necessary and nasty chore to type REM lines. 
I don't condone the omission of these lines, 
since they may be referenced within the pro- 
gram (a bad practice, but not unheard of). If 
you want to take chances, BASIC Editor II is 
willing to comply. 



When you J ve finished entering a 

program using BASIC Editor II, you 

can be certain it contains no typos. 



Listing 1. 
BASIC listing. 



32608 IF FL THEM 32616 

3260Z DIM L5C115),5ySC115),C2SC2>,BSCl 

15>,MSCil3),S$C38),ESC63),ASCl> i FL = 1 : S 

TMTAB=PEEKC136)*PEEKC137)*256 

32604 GRAPHICS : POKE 718, I P = : ABR = B I 

? "ALLOW ABBREVIATIONS"; 1INPUT ASlIF A 

S = "Y" OR AS="y" THEN 6BR=1 

32606 BSC1)=" "I8SC115>= BSC2)=B$ 

32616 OPEN 017,4,B,"EI"!LS=" ":G05UB 3 

2662I5TART=0 

3261B POKE 766,1:P0KE 83, 33 I POSITION 1 

,3:IF LEHCLSX33 THEN ? L$:G0TO 32624 

32620 IF LENCLS)<77 THEN ? LSC1,30)I? 

LSC39,LENCLS>> IGOTO 12624 

32622 ? LS(1,38):? LSC39,76)I? LSC77.L 

ENCLS)) 

32624 POKE 752,0:P0KE 766,0:P0KE 559,3 

4:P0KE 82,1:P0KE 83, 38 : POSITION 8,10:? 

" ";:INPUT ttl7;L$:P0KE 766,1 
32626 IF CLS="P" OR LS="p") AND 5TART= 
THEN P=1:L$="" 

32628 IF LS="E" OR LS="e" THEN E=1IP0S 
ITION 1,10:? SUS GOTO 32624 
32630 IF L$="0" OR LS="q" THEN 32698 
32632 IF LS = "" AND P = l THEN 32686 
32634 IF LS = "" THEN 32624 
32636 IF LS="B" OR LS="b" THEN GRAPHIC 
5 8:? "TVPE 'GOTO 32688' TO CONTINUE": 
END 

32638 IF LSC1,1)="E" OR LS(l,l)="e" TH 
EH E=1!TRAP 32624:EL=UALCLSC2>) :P05ITI 
ON 1,9:LI5T EL:GOTO 32624 
32648 SgS=LS:TRAP 32624 : X=UAL CLS) 
32642 5TART=1:IF P AND NOT E THEN 326 
52 

32644 gosub 32674:if not abr or p the 

32646 poke 766,0:? chrs (125) : position 
o,3il=valcls> :list l:? i? :? "cont":l$ 

= B5 

32648 POSITION 0,0:POKE 842,13:5TOP 
32658 POKE 842 , 12 : A = U5R CADR C5$> , ADR CLS 
) ,4) :LS=LSC1,A> 

32652 CHK5UM=U5R CADR CMS) , ADR CLS) , LEN CL 
$)) :CHK5UM=CHK5UM+PEEKC154 2>*65536 
3 2654 CHK=CHK5UM-CINT(CHK SUM/676) *676) 
:HI = INTCCHK/26) :L0=CHK-CHI*26> IC2SC1)=: 
CHRSCHI*65> :C25C2)=CHRSCL0+65) 
32656 IF NOT P OR E THEN E=0:G05UB 32 
662!IF NOT P THEN 32668 

32658 POKE 83,39:P0KE 752,1:F0R X = 3 TO 
5:P05ITION i,X:? BSC1,38> IP05ITI0N 1, 
X + 71? BSC1,38) INEXT X:POKE 83,38 
32668 POKE 766,1:P0KE 83 , 38 : POSITION 6 
,7:? C2$;P0KE 752,0!GOTO 32618 
32662 GOSUB 32782:P0KE 766,8:P0KE 752, 
l:? "K":POKE 82,1IDL=PEEKCS68>+256»PEE 
KC561)*4 

32664 POKE DL-I,78:P0KE DL42.6IP0KE DL 
*3,112:P0KE DL*4,112:P0KE DLt5,112!P0K 
E DL*13,112IP0KE DL+14,112 
32666 POKE DL+22, 112 : POKE DL*23,112!P0 
KE DL*24,65|P0KE DL + 25 , PEEK C560) I POKE 
DLt26,PEEKC561> :POKE 83 ,39 

32668 position 20,8:? 
~ ':position 0,7:' 




POSITION 1,7 



32672 POKE 559, 34 : RETURN 

32674 GRAPHICS 0:POKE 559,B:P0KE 766,1 

:POKE B2,0:P0KE 83,39:P05ITI0N 8,3:? L 

$:? :? :? :? "C0NT":P0SITI0N 0,8 

32676 POKE 842,13:ST0P 

32678 POKE 842,12:TRAP 32682 : A=U5R CADR 

CES) ,UALCLS)) IIF A=4 THEN POP IGOTO 32 

32580 RETURN 

32682 GOSUB 32662:S0UND 0, 75, 10, 8 : FOR 

X=I TO 20:NEXT X:50UND 8, , 0, : POSITIO 

N 1,3:? "SYNTAX ERROB ! " : POKE 766,1 

32684 POKE 83, 38 : POSITION 1,18:? SVS:G 

OTO 32624 

32686 LINE=PEEKC5TMTAB)*PEEKC5TMTAB+1) 

*256:IF LINE>32599 THEN 32690 

32688 0FS=PEEKC5TMTAB*2> : 5TMTAB=5TMTAB 

+0F5:P05ITI0N 1,9:LI5T LIHE:GOTO 32624 

32690 POKE 766, : POSITION 1,101? "READ 

Y TO OUIT";:INPUT ASlIF A$<>"Y" THEN P 

OSITION 1,10:? B$C1, 38) IGOTO 32624 

32692 GRAPHICS 0:? !? !? IFOR X=32600 

TO 32636 STEP 2:? X:NEXT XI? "C0NT"IP0 

5ITI0N 0,8lP0KE B42,13|5T0P 

32694 POKE 842, 12 1 GRAPHICS 81? I? I? I 

FOR X=32638 TO 32674 STEP 21? XINEXT X 

:? I? "C0NT"IP05ITI0N 8,8 

32696 POKE 842,13:STOP 

3269B POKE 842 , 12 : GRAPHICS 0:? I? I? I 

FOR X=32676 TO 32702 STEP 21? XlNEXT X 

1? I? "POKE B42,12"IP05ITI0N 8,8 



32708 POKE B42.13I5T0P 

32702 POKE 16.112IP0KE 53774, 112 : RETUR 

N 



CHECKSUM DATA. 

(see issue 39's Unicheck) 



32600 DATA 6,665,923,757,809,171,225,8 
96,532,439,918,267,912,144,735,8453 
32638 DATA 97,358,230,693,706,878,317, 
127,36,597,238,258,182,438,168,5315 
32668 DATA 864,953,472,385,887,724,72, 
687,988,736,625,612,672,184,891,9672 
32698 DATA 8,856,85,949 



Listing 2. 
BASIC listing. 

10 DIM LSC120) ,HLSC119),A$C1) 
20 GRAPHICS OIPOKE 710,0:? "QISK OR BA 
55ETTE"; IIHPUT AS:IF A5<>"C" AND AS<>" 
D" THEN 20 

30 IF A$="C" THEN 58 

40 ? "PLACE FORMATTED DISK IN DRIUE":? 
"THEN PRESS RETURN" : INPUT LSlOPEN HI, 
8,8,"DIML.DAY"IG0T0 60 

50 ? I? "READY CASSETTE, PRE55 RETURN" 
;:INPUT LSlOPEN 01, 8,6, "C:" 
60 LS = "32608 MS CI) =" : LS C13) =CHRS C34) 
70 N = 119:G0SIIH 138 I LS C14) =MLS CI, SB) : LS 
CLEHCLS)*1)=CHRSC34) :? 01;LS 
80 LSC1)="32618 MS C59) =" : LS C14) =CHRS C3 
4) :LSC15)=MLSl55) : LS CLEN CLS) +1) =CHRS C3 
4) :? 01;LS 

30 L$C1)="3Z612 SS=":LSC18)=CHRSC34) 
100 MLS="":N=98:G05UB 130:LSC11)=HLS:L 
SCLENCLS)+1)=CHRSC34) I? 01;LS 
110 LSC1)="32614 ES=":LSC10)=CHRSC34) 
120 MLS="":N=69!G05UB 130 : LS Cll) =MLS : L 
S CLEN CLS) +1)=CHR$C34> I? 01: LS: END 
130 FOR X = l TO N:READ A I MLS CX) =CHRS CA) 
IHEXT X:RETURN 

140 DATA 104,104,133,204,104,133,203,1 
84,104,133,205,169,0,141,3,6,141,2,6,1 
41,4,6,141,5,6 

150 DATA 141,5,6,238,3,6,32,68,218,172 
,2,6,177,203,133,212,32,170,217,32,182 
,221,32,68,218 

168 DATA 173,3,6,133,212,32,178,217,32 
,219,218,32,218,217,165,212,141,0,6,16 
5,213,141,1,6,24 

170 DATA 173,0,6,189,4,6,141,4,6,173,1 
,6,109,5,6,141,5,6,144,3,238,6,6,238,2 
188 DATA 6,172,2,6,196,285,208,176,173 
,4,5,133,212,173,5,6,133,213,96 
198 DATA 184,104,133,204,104,133,203,1 
04,184,141,255,6,169,8,133,213,216,165 
,88,133,285,165,89,133,286 
288 DATA 174,255,6,24,165,285,185,40,1 
3 3,205,144,2,230,206,202,208,242,160,0 
,177,205,201,64,144,18 

218 DATA 281,96,144,19,281,128,144,18, 
261,192,144,6,201,224,144,7,176,8,24,1 
65,32,144,3,56,233 

220 DATA 64,145,203,200,192,114,240,2, 
208, 21S, 177, 203, 201, 32, 208, 3, 136, 208, 2 
47,208,132,212,96 

230 DATA 104,104,141,254,6,104,141,253 
,6,169,8,133,213,216,165,136,133,205,1 
65,137,133,206,160,8,177 

248 DATA 205,205,253,6,208,8,200,177,2 
05,205,254,6,24 0,15,160,2,177,285,24,1 
01,205,133,205,144,228 

250 DATA 230,206,176,224,160,4,177,205 
,201,55,248,4,168,0,248,0,132,212,96 



CHECKSUM DATA. 

(see issue 39's Unicheck) 



10 DATA 203,265,465,844,294,973,652,27 
8,978,797,278,275,835,209,301,7639 

50 DATA 355,94,254,428,935,848,588,41 ,— . 

,374,564,5435 fcrl 
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Recently, I was preparing to attend yet 
another computer show. In a small 
effort to get organized, I normally 
update my list of industry contacts 
prior to leaving for the show. This 
time was no different— add a few new names 
here, delete a few names there— instant new 
contact list. 

In the seven years I have been going to 
these trade shows, much has changed. 
Change couldn't be more evident than within 
the world of Atari . Since I have kept all of 
my old contact lists— going back to 1984—1 
have what amounts to an archaeological 
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The early and mid-1980s saw a number of 
companies jumping on the software band- 
wagon. Many of these didn't have the stay- 
ing power either in management prowess or 
quality products to endure. Traditional board 
game companies such as Parker Brothers, 
Ideal (CBS), and Milton-Bradley saw the 
boom in computer games and decided to get 
in on the action. 

Some of the games from these companies 
stand out as nostalgic reminders of a more 
innocent age of software. For example, CBS's 
K-mzy Shoot Out was an adaptation of the ar- 
cade game Berzerk. Killing robot sentries al- 




by Arthur Leyenberger 



record of companies and products that have 
both become a household word and later are 
all but forgotten. 

In late 1984, the Atari 8-bit computer was 
in its prime. Despite the ongoing confusion 
caused by the "old Atari" and the "new old 
Atari," there were dozens of companies sup- 
porting the machine with products ranging 
from the innovative to the dogs. My histori- 
cal file also shows a number of trends which 
have come, gone, and well, come again. 



ways seemed to be an enjoyable and challeng- 
ing pastime and one which I spent many 
hours playing. Although simplistic by today's 
standards, it was good for its time. 

Yet CBS Software had its share of medi- 
ocre titles. K-Star Patrol never reached the 
popularity of K-razy Shoot Out. In this shoot- 
'em-up game, you had to destroy alien ships 
as you moved through enemy space sectors. 
One of the main problems with K-Star Patrol 
was the sensitivity of the joystick. A required 



maneuver involved rotating the joystick 
through all four positions to release a bomb. 
I never did master this technique, which made 
the game virtually not playable for me. 

Boulders and Bombs was another CBS dis- 
appointment. It was difficult to play, unin- 
teresting, and not challenging. On the other 
hand, CBS Software had better success with 
their Sesame Street-inspired children's educa- 
tional games. Titles like Astro Grover were 
good back then and are still considered some 
of the best available educational games. 

Not so good, by any standards, was Par- 
ker Brothers' Popeye. It looked much like a 
remake of Epyx's Jumpman and Jumpman 
Junior (both excellent games). Miner 2049er 
(Big Five Software) was a much better im- 
plementation of this type of climbing and 
jumping game. And, of course, Donkey Kong 
(Atari) was a tremendous hit both in the ar- 
cade as well as on the Atari 8-bit machine. 

Parker Brothers should not be thought of 
as a maker of poor games. One of their big 
hits, if not the biggest, was Q*Bert. The Atari 
cartridge was a true representation of the ar- 
cade game. Although the theme was simple, 
Q*Bert was (is) the type of game that can hold 
your interest. It also qualifies for the non- 
violent game hall of fame since the game can 
be played without "killing the aliens." 

Looking down my list of contacts I see the 
name Educalc. This was one of the many 
small companies producing quality software 
without attracting very much attention. I still 
have two of their titles: Addition and Subtrac- 
tion and Multiplication and Division. 

Although both of these software titles 
lacked advanced graphics, they were good at 
teaching basic math through the use of drill 
and practice. Each offered several different 
"games" which one or more children could 
play. Each game taught a different aspect of 
math, such as straightforward counting or 
counting by increments. 

I particularly liked the way the games han- 
dled errors. Some drill and practice programs 
would not permit the user to advance until 
the correct answer was given. This heavy- 
handed approach would lead to frustration 
and little learning. Educalc used a gentler ap- 
proach that gave the youngster several 
chances before presenting the correct answer. 

Unfortunately, I don't think you can find 
Educalc games anymore, even on the dis- 
counters' shelves. That's a shame. 

Another long-forgotten name on my list is 
Maximus. Maximus was a management con- 
sulting company located in Virginia, I be- 
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lieve. They had two products: Storyline and 
Safetyline which both used a combination of 
disk and cassette tape. 

The tape contained a story narration that 
was synchronized to graphics images on the 
disk. The animation and mouth movements 
of the characters matched the narration on the 
tape. It was all well done. Safetyline also in- 
cluded several games that reinforced the con- 
cepts (safety tips for crossing the street and 
what to do if lost) taught by the story. 

I occasionally still see Storyline and Safety- 
line for sale in some software stores and toy 
outlets. If you have both a disk drive and a 
cassette recorder attached to your Atari com- 
puter, and you have children aged four to 
seven years, you should check out these pro- 
grams. They are well-designed and fun for 
children. 

Another company name I see on my list 
is Eastern House Software. I don't know what 
happened to them but they had an excellent 
product called the Monkey Wrench. It was a 
cartridge that fit into the right slot of an Atari 
800 and gave Atari cartridge BASIC the pow- 
er it should have had from the start. 

Monkey Wrench provided automatic line 
numbering and renumbering, allowed you to 
delete ranges of lines and had a hex- 
adecimal/decimal number conversion utility. 
You could also use it to display the contents 
of memory without leaving BASIC. I still 
have mine, but the availability of Microsoft 
BASIC, BASIC XL and others has forced 
Monkey Wrench to collect its share of dust. 

It's been a long time since Odesta has mar- 
keted 8-bit programs, having left for the green 
pastures of the Mac world. Still, its Chess, 
Checkers, and Odin (otherwise known as 
Othello and Reversi) games are exceptional 
examples of quality software. What made 
these products definitive video board-game 
translations was the user interface (still one 
of the best I've seen on any computer) and 
the excellent documentation, which not only 
included game play but also histories of the 
game and strategy hints. 

These Odesta games also had a plethora of 
options that let you play at many levels, take 
back any number of moves, switch players 
during a game, request help, and play back 
the entire game much like a movie. These 
games were as much a means for learning as 
they were for playing, and they still can be 
found if you are willing to look hard for them. 
If you don't have one, you ought to pick one 
up. You'll then have something with which 
to compare every other 8-bit product you 
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own. 

I forgot about a company called Tronix. 
They had a couple of games in the mid-1980s, 
but the one I remember is Juice. One of the 
best of the jumping/hopping genre, it was in 
some ways a better game than the more popu- 
lar Q*Bert. Juice used a three-dimensional 
or perspective view for you to hop around on. 

The goal was to jump on every square of 
the board, leaving a trace which completed 
a "circuit." Once the circuit was complete, 
you advanced to the next level. At higher lev- 
els it took two or more jumps to turn a square 
into an electrical trace. Like many of the clas- 
sic games, Juice was simple in concept but 
had depth. 




I had to do a little digging through the 
"junk," ah, old software box, to find out why 
Utopia Software was on my list. I found it: 
Pinhead. That's the name of a game that cap- 
tured my fancy years ago in which you move 
a clown on a unicycle across the bottom of 
the screen in order to catch falling balloons 
on his head. 

I know it sounds lame, but the circus-style 
music and excellent graphics added to the ex- 
citement. Pinhead was modeled after Kick- 
man which made the rounds at the arcade at 
the time. I first saw this game at a users' 
group meeting on a projection TV. Once I 
saw it I was hooked. 

Not every software title can be a hit. Few 
companies learned this lesson better than 
Sirius. Sirius had two of my favorite 8-bit 
games as well as more than their share of tur- 



keys. Sneakers, one of their better efforts, 
consumed a good portion of my life. 

Sneakers was a light-hearted Space In- 
vaders-type game in which cute and hu- 
morous creatures descended from the top and 
sides of the screen as targets for you to shoot 
at. There were eight or nine types of crea- 
tures, but I recall only the Sneakers, Daggers 
and Cyclops. Like other games of this ilk, 
each screen brought faster and deadlier crit- 
ters, and the object was to score as high a 
score as possible. I no longer have my Sneak- 
ers disk, but if I did, I would play a round 
right now. It always brought a smile to my 
face. 

The other excellent Sirius game was Ban- 
dits. I call it a Gtotarfan-to-the-max type of 
game. Like Galaxian, you move a gun tur- 
ret across the bottom of the screen, aiming 
and shooting at the enemy ships that descend. 
Some of the enemies shoot back, others dive 
and regroup and they come in groups of twos, 
threes and fives. 

Bandits contains a couple of dozen levels 
of attacking aliens, and things get hectic fast. 
Bandits is one of the best shoot-'em-ups ever 
made. I wore out one Atari joystick with this 
game and suffered multiple calluses on my 
fingers. 

Sirius had some awful titles as well. Alpha 
Shield and Repton were mediocre at best. Cy- 
clod and Fast Eddie were poor excuses for 
even a VCS game. Squish 'Em and Wa\y Na\y 
were uninspired and dull. Too bad Sirius is 
no longer around because when they did it 
right, they did it right. 

Many more names appear on my old con- 
tact lists, but I have run out of space. Some 
of the products were not worth purchasing 
when they were new, but there are hundreds 
more that were good. The good news is that 
many of the products from companies no 
longer in business can still be purchased. 
Like Classic Coke, some of these programs 
have been purchased, repackaged and reis- 
sued. In many cases, the programs now cost 
less than they did when they were new. 

So the next time someone says there isn't 
any good software for the 8-bit Atari, tell 
them they are not looking hard enough for 
it. All in all, there are plenty of programs of 
all types to choose from for your computer. 

Arthur Leyenberger is a computer analyst 
and free-lance writer who works out of his 
home in New Jersey. He can be reached on 
CompuServe at 71266,46 or on DELPHI as 
ARTE. CI 
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UTILITY 

M/L EDITOR 



For use in machine-language entry. 



by Clayton Walnum 



M/L 



Editor provides an easy 
method to enter our 
machine-language list- 
ings. It won't allow you 
to skip lines or enter bad 
data. For convenience, you may enter listings 
in multiple sittings. When you're through typ- 
ing a listing with M/L Editor, you'll have a 
complete, runnable object file on your disk. 

There is one hitch: It's for disk users only. 
My apologies to those with cassette systems. 

Listing 1 is M/L Editor's BASIC listing. 
Type it in and, when it's free of typos, save 
a copy to disk, then run it. 

On a first run, you'll be asked if you're 
starting a new listing or continuing from a 
previously saved point. Press S to start, or 
C to continue. 

You'll then be asked for a filename. If 
you're starting a new listing, type in the file- 
name you want to save the program under, 
then press RETURN. If there's already a file 
by that name on the disk, you'll be asked if 
you wish to delete it. Press Y to delete the 
file, or N to enter a new filename. 

If you're continuing a file, type in the name 
you gave the file when you started it. If the 
program can't find the file, you'll get an er- 
ror message and be prompted for another file- 
name. Otherwise, M/L Editor will calculate 
where you left off, then go on to the data en- 
try screen. 

Each machine-language program in 
ANALOG Computing is represented by a list 
of BASIC data statements. Every line contains 
16 bytes, plus a checksum. Only the numbers 
following the word DATA need to be con- 
sidered. 

M/L Editor will display, at the top of the 
screen, the number of the line you're current- 
ly working on. As you go through the line, 
you'll be prompted for each entry. Simply 



type the number and press Return. If you 
press Return without a number, the default 
is the last value entered. 

This feature provides a quick way to type 
in lines with repetitions of the same number. 
As an added convenience, the editor will not 
respond to the letter keys (except Q for 
"quit"). You must either enter a number or 
press Return. 

When you finish a line, M/L Editor will 
compare the entries' checksums with the 
magazine's checksum. If they match, the 
screen will clear, and you may go on to the 
next line. 

If the checksums don't match, you'll hear 
a buzzing sound. The screen will turn red, 
and the cursor will be placed back at the first 
byte of data. Compare the magazine listing 
byte by byte with your entries. If a number 
is correct, press RETURN. 

If you find an error, make the correction. 
When all data is valid, the screen will return 
to gray, and you'll be allowed to begin the 
next line. 

Make sure you leave your disk in the drive 
while typing. The data is saved continuously. 

You may stop at any time (except when you 
have a red screen) by entering the letter Q for 
byte 1. The file will be closed, and the pro- 
gram will return you to BASIC. When you've 
completed a file, exit M/L Editor in the same 
way. 

When you've finished typing a program, 
the file you've created will be ready to run. 
In most cases, it should be loaded from DOS 
via the L option. Some programs may have 
special loading instructions; be sure to check 
the program's article. 

If you want the program to run automati- 
cally when you boot the disk, simply name 
the file AUTORUN.SYS (make sure you have 
DOS on the disk.). 



The two-letter checksum code pre- 
ceding the line numbers here is not 
a part of the BASIC program. For 
more information, see the "BASIC 
Editor II" elsewhere in this issue. 



LISTING 1: BASIC LISTING 



AZ IB DIM BF(I6) ,HS(4) ,flS(l> ,B5C1) ,rS(15) 
,F1$C151 

lf 11 dim m0ds(4) 

in 28 line=1000:retrh = 155:back5p = 126:chk5 

um=o:edit=b 
GO 39 C05UB 450:P05ITI0N IB, 6:? "Start or 

Hontinue? "JIG05UB 506:? CHR$CA) 
ZC 40 POSITION 10,8:? "FILENAME" I : INPUT F 

S:POKE 752,1:? " ■■ 
Ft 58 IF LEHCFS)<3 THEN POSITION 20,18:? 

" ":GOTO 40 
*F 68 IF F$C1,2) <>"D:" THEN F15="D : ■• : FlS e 

3)=FS:G0T0 80 
KL 70 F1S=F$ 

IN 80 IF CHRS{A>="5" THEN 120 
FD 90 TRAP 430:OPEN 112, 4 , 0, FlS : I RAP 110 
HO 100 FOR H=l TO 16:GET tS2,A:HEXT XSLINE 

=line+io:goto iob 
hm 118 close t!2:0pen 112 , 9 , , f 1 $ : goto 17b 
vt 120 trap 160:0pen bz, 4, 0, fls : c05ub 44b 

jp05iti0n 18,18:? "file already exists 

! !":P0KE 752,0 
ZU 130 POSITION 18,12:? "ERASE IT? "|:G05 

UB 500:P0KE 752,1:? CHRS (A) 
MB 148 IF CHRStA)="N" OR CHRS IA) ="n" THEN 

CLOSE B21G0T0 30 
QG 150 IF CHRStA)<>"Y" AND CHRSCA) <>"9" T 

HEN 13B 

BH 160 CLOSE H2:0PEN B2 , 8,8, FlS 

IE 170 G05UB 450:P0SITI0N 18,1:? "CEBE3I 

HUB: ";LINE:CHKSUM=B 
GH 180 L1=3:F0R X=l TO 16:P0SITI0N 13»CX< 

101+12*<X>9) ,X*2:P0KE 752,0:? "BYTE B" 

;X;": "; :gosub 318 

KH 190 IF EDIT AND L=8 THEN BYTE=BF CX> : GO 

TO 218 
FY 208 BYTE=0AL«NS1 
OZ 281 M0DS=NS 

BU 210 POSITION ZZ,X+2:? BYTE;" " 
YZ 220 BFCXJ=BYTE:CHK5UM=CHK5UM«BYTE»X:IF 

CHK5UM>9999 THEN CHK5UM=CHK5UM-10000 
MS 230 NEXT X : CHK5UM=CHK5UM»LINE : IF CHK5U 

M>9999 THEN CHKSUM=CliK SUM-1B00B 
IE 240 POSITION 12,X»2:P0KE 752,81? "CHEC 

K5UM: ■•; :L1 = 4:G0SUB 318 
EH 250 IF EDIT AND L=0 THEN 270 
DM 260 C=UALCH$5 
5Y 270 POSITION 22,X*2:? C;" 
IL 280 IF C=CHKSUM THEN 300 

BI 290 G05UB 44O:E0IT=l:CHK5UM=O:GOT0 180 
LH 300 FOR X=l TO 16:PUT B2, BF CX> : NEXT X: 

LINE=LINE+18:EDIT=B:G0T0 178 
FM 31B L = 
KZ 328 G05UB 500:IF CA=A5Ct"Q") OR A=A5Ct 

"q")) AND X = l AND NOT EDIT THEN 420 
PO 330 IF AORETRN AND AOBACKSP AND (A<4 

8 OR A>57) THEN 328 
BX 331 IF AzRETRN AND NS="" THEN NS:H0DS 
TB 335 IF A=RETRN AND L=0 AND X>1 THEN 35 


JR 348 IF C(A=RETRH AND NOT EDITI OR A=B 

ACK5P) AND L=0 THEN 320 
BH 350 IF A = RETRN THEN POKE 752,1:? R 

ETURN 
GG 360 IF AOBACKSP THEN 400 
SA 370 IF L>1 THEN NS=N$ CI, L-l) : GOTO 390 
AS 380 NS="" 

RE 390 ? CHRS(BACKSP) ) :L=L-l:GOT0 320 
SB 400 L=L+l:IF L>L1 THEN <1 = RE TRN : GOTO 35 


HK 410 NSCL>=CHRSCA> :? CHRS CA) ;: GOTO 320 
KN 420 GRAPHICS 0:END 
YT 430 G05UB 440:P0SITI0N 10,10:? "NO 5UC 

H FILE!":F0R X = l TO 1000:NEXT X:CL05E 

B2:G0T0 30 
FB 440 POKE 710,48:50UND 8, 100 , 12, 8 : FOR X 

=1 TO 50:NEXT XlSOUND 0, 0, , : RETURN 
MY 450 GRAPHICS 23IP0KE 16,112:P0KE 53774 

,112:P0KE 559,0:P0KE 710,4 
XR 460 DL=PEEKC560) *256*P£EK C561J *4 : POKE 

DL-1,70:P0KE DL+2,6 
MM 470 FOR X=3 TO 39 STEP 2:P0KE DL+X,2:N 

EXT X:F0R X=4 TO 40 STEP 2:P0KE DL*X,8 

ZH 480 POKE DL»41,65:P0KE 0L»42 , PEEK (560) 
!P0KE DL*43,PEEK(561) :P0KE 87,0 

AC 490 POSITION 2,0:? "analog HI editor": 
POKE 559,34:RETURN 

HZ 500 OPEN H1,4,0,"K:":GET B1,A:CL05E til 
:RETURN M 
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Choplifter 

Atari Corp. 

1196 Borregas Avenue 

Sunnyvale, CA 94086 

(408) 745-2000 

8-bit cartridge, $24.95 



Reviewed by Matthew J.W. Ratcliff 



The original Choplifter, vintage 1982, 
was a disk-based game by Broder- 
bund software. The cartridge version 
from Atari has been given a graphics 
face-lift, without sacrificing the play- 
ability of the original. 

The game scenario is simple and challeng- 
ing. "The Bungelings have kidnapped 64 of 
our delegates from the World Peace Confer- 
ence." Your task is to rescue them. You pilot 
a helicopter from your secret base, which is 
disguised as a post office, into the Bungel- 
ing territory. The backdrop is a colorful scene 
of blue sky, clouds, mountains and the flat 
ground below. You have three "sorties," or 
lives, in which to complete your mission. 
Your chopper is equipped with a machine 
gun for shooting open the barracks that con- 
tain the hostages, and for air-to-air combat 
(extremely difficult) with enemy jet fighters 
and drone air mines. You must overcome an 
onslaught of tanks, as well, which may be 
taken out with your bombs. Quickly press- 
ing the fire button shoots, while holding it 
down briefly turns the helicopter to face right, 
forward and left. When facing forward, the 
bombs are activated by the fire button, and 
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the machine gun is active when facing either 
side. 

The most difficult component of the game 
to master is the timing used on the fire but- 
ton. Fire too slowly, and you end up turning 
the helicopter instead of shooting. If you hold 
the button too long, the chopper will turn too 
far with generally fatal results if an enemy 
is in hot pursuit. A good tactile feedback 
joystick, such as the Epyx 500XJ is best suit- 
ed for Choplifter. 

No points are scored for shooting the ene- 
mies. Your mission is to save lives, not de- 
stroy them, though you must eliminate 
hostiles as necessary in your effort to rescue 
your allies. This is no easy task. As you fly 
along, tanks will track you from below. Drop 
bombs on them to give you enough time to 
land. Once on the ground, the hostages will 
board your aircraft. 

The Bungelings are always on your trail. 
Stops to pick up hostages will be brief, and 
you must land close to them to save time. This 
requires precision flying, since it is easy to 
squash a friend. As the tanks relentlessly hunt 
you down, they may shoot some of the 
hostages. It is up to you to lift off and draw 



the tanks' fire to save your men. 

Only 16 men at a time will fit in the chop- 
per. They must be returned to the post office, 
where they will wave in gratitude as they get 
off the helicopter. Subsequent trips will be 
much tougher. 

A perfect score in this game is 64 lives 
saved. Saving all 64 men is a difficult but at- 
tainable goal. I have not mastered it yet, but 
my local Atari dealer, Jeff Randall, has the 
original, and he tells me that the disk-based 
game presented a special screen graphic if 
you achieved a perfect score. I don't know 
if the same game-winning graphic is includ- 
ed in the cartridge version. 

The first Choplifter was done in Atari's 
high-resolution, two-color graphics mode 8. 
All the colors in the game were achieved 
through "artifacting," where combinations of 
even and odd pixels gave different color ef- 
fects. It is clear that a lot of work went to the 
development of the new graphics for this 
game. 

Matthew Ratcliff, a frequent contributor to 
ANALOG Computing, lives in St. Louis, 
Missouri with his wife and two children. 
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by Michael A. Banks 



S 



haring files and information is a time- 
honored tradition among modem 
users, and for many the major reason 
for being online. It was certainly an 
eye-opener for me the first time I fired 
up a modem and discovered the thousands 
of files available at almost no cost online! 
This tradition is carried on in the Atari SIG 
and, indeed, is one of its foundations. This 
is obvious if you've spent any time at all 
browsing the SIG's databases— and anyone 
who's been in the SIG has done that. 



But, have you ever wondered just where all 
those files come from? A good percentage of 
the files in the Atari SIG database come from 
people like you, who enjoy sharing files from 
their local BBSs and/or creations or news 
items of their own. 

To enhance the file-sharing process, you 
can upload files to the Atari SIG databases 
free— which is to say you can have your bill- 
ing turned off while you upload and submit 
a file. 

This time out, we'll examine just how the 
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database file-submission process works. I will 
also bring you up to date on some new wrin- 
kles in submitting files to Atari SIG databases 
that you may have missed. (I'll tackle the lat- 
ter first.) 



New Database Submission 
Procedure 

Whether you're a frequent contributor to 
the Atari SIG or you've never submitted a 
file, you'll be pleased to know that recent 
changes in the database-submission proce- 
dure make contributing files much easier. 



In the past, submissions were handled in 
such a manner that you had to first upload 
the file in question to your personal work- 
space, after which you could submit the file 
from either workspace or an Atari SIG data- 
base prompt. 

As with the old procedure, typing SUB- 
MIT at either the workspace or a database 
prompt initiates the process. Now, however, 
when you submit a file to an Atari SIG data- 
base, you are offered the option of upload- 
ing the file direct as a part of the submission 
process. (You can still submit a file that has 
been previously uploaded to your workspace, 
if you wish.) 




When you type SUBMIT at a database 
prompt, you will see the new Choose Sub- 
mit Procedure Menu: 



HEW SubMit Procedure 
OLD SubMit Procedure 
Help 
Exit 

CH0U5E-5UBMIT> (NEW, OLD, Help, Exit) 



If you select OLD, you will go through the 
standard submission procedure, which re- 
quires that any file(s) submitted for publica- 
tion reside in your personal workspace. This 
of course requires that you upload them be- 
fore submitting. 



Make the 
DELPHI Connection! 

As a reader of ANALOG Computing, you 
are entitled to take advantage of a special 
DELPHI membership offer. For only $19.95 
plus postage and handling ($30 off the stan- 
dard membership price!), you will receive a 
lifetime subscription to DELPHI, a copy of 
the 500-page DELPHI: The Official Guide by 
Michael A. Banks and a credit equal to one 
free evening hour at standard connect rates. 
Almost anyone worldwide can access DEL- 
PHI (using Tymnet, Telenet or other net- 
working services) via a local phone call. 
Make the DELPHI connection by signing up 
today! 

To join DELPHI: 

1. Dial 617-576-0862 with any terminal or PC 
and modem (at 2400 bps, dial 576-2981). 

2. At the Username prompt, type 
JOIN DELPHI. 

3. At the Password prompt enter ANALOG. 

For more information, call DELPHI Mem- 
ber Services at 1-800-544-4005, or at 
617-491-3393 from within Massachusetts or 
from outside the U.S. 

DELPHI is a service of General Videotex 
Corporation of Cambridge, Massachusetts. 



Adventure Atlas is a 
"travel atlas " you 

Jean use to find 
nusual trips that 
match the criteria 
you specify regarding 
dates, location and 




sion process is basically the same whether 
you select NEW or OLD after you type SUB- 
MIT. You'll be taken through the database 
submission process by a series of prompts, 
at which you'll be asked to enter the follow- 
ing information: 

• The number of files you are submitting 
(and, if you are submitting more than file, 
whether they are related and should be placed 
together as a single database entry) 

• The type of file you are submitting (ar- 
ticle, program, data file, etc.) 

• The Atari SIG database (topic) in which 
the file should be placed; a description of the 
file (this is the description you see when you 
type READ at a database prompt) 

• Keywords, for use by others in locating 
the file (one of these must be one of the six 
keywords already established for each 
database) 

• The group name, which is the name dis- 
played in the database directory 

• Any special name by which the file must 
be called on the downloader's disk, if it's a 
program 

• The name of the file (if you are submit- 
ting a file from your workspace) 

• Whether or not you want the file delet- 
ed from your workspace 

You can get help at almost any point in the 



Notes 



If you select the new submission process, 
your billing is automatically turned off dur- 
ing the submit. If you use the old process, 
you will want to select "Request free upload" 
from the Atari SIG main menu beforehand, 
to set an appointment with the SIG manager 
for your free upload and submission. 

In every instance, the file you submit will 
not immediately appear in the database you 
specify. It will be stored temporarily in a spe- 
cial database where the SIG manager can ex- 
amine it, and, if necessary, add or change the 
description or keywords. 

The old submission process will eventual- 
ly go by the wayside, by the way, but you can 
use either process for some time to come. 



Adventure Atlas Comes to 
DELPHI 

Although your vacation plans for this sum- 
mer are probably set in stone at this point, 
you may be planning ahead for next year— 
or looking at a vacation later in the year. 

If so, and you want to try a really different 
vacation, browse through the new Adventure 



If you select NEW, you will be prompted 
at the appropriate point in the submission 
process to upload the file. The new submis- 
sion process still allows you to submit files 
from your workspace, by the way. 

Selecting the new procedure gives you 
some additional options, including the abili- 
ty to do batch-file uploads, change your up- 
load protocol, and review and edit the 
information you've input per the steps out- 
lined below. 



Step-by-step 



Outside of the origin of the submitted file 
and the options just discussed, the submis- 



Database SubMit Menu: 

Begin SubMit CStep by step! 

Description of Group 

Topic of Group 

Filetype of Group 

Keywords for Group 

Nawe of Group 

Choose Upload Protocol 



Upload File l 

Batch Upload Files 

Review-edit Group 

Copy File 1 froM Workspace 

Help 

Exit 



5UBMIT> CBegin,Description, Topic, M ?" or Exit) 

FIGURE 1 



process by typing "?" or HELP; there is also 
a new Database Submit Menu, which you can 
view by typing "?" after you type SUBMIT: 
See Figure 1 

As you can see from the selections on this 
menu, the new process gives you far more 
flexibility than was previously offered. 



Atlas on DELPHI'S Travel menu. Adventure 
Atlas is a "travel atlas" you can use to find 
unusual trips that match the criteria you 
specify regarding dates, location and type of 
trip. You can also select and confirm the 
reservations for a trip online. Or, just browse 
the listings for fantasy trips. 
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The game sets you up 
with $1,000 in virtual 
funds in the bank. 
You can buy as many 
chips as you wish for 
use in betting. 




Trip categories available include bicycle 
tours, cruises (down the Nile or up the 
Yangtse River), golfing, hiking, rafting and 
more. As the online description of Adventure 
Atlas implies, you can find an experience 
here— not just a vacation. 

Type GO TRAVEL ADV at the Atari SIG 
Main Menu to see more of the Adventure 
Atlas. 

Poker on DELPHI 

Poker Showdown! is the latest addition to 
DELPHI'S growing collection of online 
games. A real-time version of draw poker that 
accommodates single or multiple players, 
Poker Showdown! is an exciting pastime, es- 
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pecially when there are other players to com- 
pete against. 

The game sets you up with $1,000 in vir- 
tual funds in the bank. You can buy as many 
chips as you wish for use in betting. Then, 
pick a table— novice or advanced. Your win- 
nings (or losses) are remembered from one 
game to the next, so bet wisely or you won't 
be able to play the big stakes anymore. To 
reach Poker Showdown! from the Atari SIG, 
type GO ENT POKER. 

If your poker skills are rusty, or you're un- 
familiar with the name, type HELP to get a 
brief review of the relative values of the poker 
hands. You'll also find detailed information 
about the game of poker— and many other 
topics— in Grolier's Encyclopedia. Type GO 
LIB ENC, then ENCY, then type POKER as 
the search term. 



Try DELPHI /Regional for 
ft 



Savings 



ANALOG readers in the Kansas City area 
may wish to look into joining DELPHI/Kan- 
sas City. This regional version of DELPHI 
provides economical access at a flat rate of 
just $9.95 per month. Access to the national 
DELPHI service is surcharged at normal 
DELPHI rates, but the local service has a lot 
to offer— including access to E-mail to and 
from all DELPHI members. If you're a heavy 
E-mail user, this alone will mean a big 
savings. 

DELPHI/Boston likewise offers lower rates 
than the national DELPHI service, as well 
as the E-mail interconnect. Both regional 
services provide a number of extra services 
specific to their cities. 

For more info, you can check out DEL- 
PHI/Kansas City or DELPHI/Boston direct 
the next time you're on DELPHI by typing 
GO DELPHI at the SIG's main menu. 



Low-cost PC Pursuit Access 



Instituted 



DELPHI has implemented access via PC 
Pursuit. This new feature will be welcomed 
by PC Pursuit users, as connecting with 



DELPHI via PC Pursuit means billing at the 
direct-dial rate of $6.60 per hour, non-prime 
time. DELPHI Advantage Plan members are 
not affected by PC Pursuit access; they are 
charged the same low rate of $4.80 per hour 
whether or not they use PC Pursuit. 

PC Pursuit users should use this ID at the 
Telenet prompt: 

CC DELPHI, PCPtt,PCPPA5SW0R[> 

The PC Pursuit sign-on is not available 
from Canada. 

Frequent DELPHI users who don't yet use 
PC Pursuit might consider signing up for it, 
both to benefit from the lower DELPHI 
charge and the nationwide BBS access it pro- 
vides. Call Telenet customer service at 
1-800-336-0437 or 703-689-6400 for more 
information. 



Send FAX Without a FAX 
Machine! 

You can now send text FAX messages to 
anyone who has a FAX machine. DELPHI'S 
FAX service offers all the convenience of E- 
mail, including being able to upload a mes- 
sage from disk and not having to wait while 
the receiving FAX machine is connected. 

To access DELPHI'S FAX service, type 
DELPHI at the SIG main menu; this will take 
you to the DELPHI Mail menu. Select FAX 
or type HELP FAX for complete information 
on preparing FAX messages, rates, etc. 

The DELPHI Mail menu also offers gate- 
ways into EasyLink, a specialized E-mail 
service in the U.S. and England, and Telex, 
the messaging system that connects you with 
millions of Telex terminals worldwide. 

That's it for now. See you in Conference! 
Tuesday evening, 10:00 P.M., Eastern time: 
Be there, or be an obtuse rectangle! 

In addition to science fiction novels and 
books on model rocketry and other topics, 
Michael A. Banks is the author o/DELPHI: 
The Official Guide and The Modem Refer- 
ence, both from Brady Books. You can write 
to him via E-mail on DELPHI to member- 
name kzin. e\ 
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continued from page 45 

; v CA5CBC970D8B59B3930333e44415441A5CCC98 
# ED8AF68888182839B3938343B44415441 

§1668 DATA A989854DA982CDC882F8868DC8824 
C4F59A91C8DC882A9FFD8834C62E4CE825AD05 
JEA9018D825ACEF659CEF759AD78824A4A 
[678 DATA 49821869814AAAF886EEF659CAD8F 
8AD7862298349821869814AAAF887EEF759CA4 
C8659ADF659C9CD9885A9CC8DF659C92D 
1688 DATA 9B3938353844415441B885A92D8DF 
J659ADF759C9E49885A9E38DF759C924B885A92 
;48DF759ACF859A289A98899885488CAD8 
698 DATA F9ACF7598CF859A289BDF85999885 
|488CAD8F6ADF6598D88D8A288F818CAADF6598 
D205AADF7598D275A8EE8594C62E44C48 
| 788 DATA 4880101088C68818189B393836384 
4415441888168A9818DEe59ADEB59D8FB26555 
AADFC82C9FFF88785CDA9FF8DFC82A9e8 
HZ 718 DATA 38E92D85CBA98838E92485CCA5CD8 
5CEF81CA8688C1FD6A900C981F81128555AA5C 
I DD8F9A9848514A514C98598FAA9868D1D 
P« 728 DATA D868AD8482498185CDA9828D1DD86 

»| 86868859B3938373844415441CD85596885CC8 
I55868688DA75A68688DA35A68688DD15A 

i738 DATA AD3802186DA35A85CEAD316285CF6 
868F814A249ADA75AC94ED884E88EA75AC94FD 
8838EA75AA288A868A98691CEE6CED882 
748 DATA E6CFA5CC91CEE6CED802E6CFA5CD9 
iCEA9281865CC85CC9882E6CD9B39383838444 

;15441E6CED682E6CFE8E88eD8D2666868 
758 DATA 85CC6885CB686885CF8DA45B68688 
D945B68688D885B68688D965BEE965B6885CE6 
885CD686885D88DA85B68688D9E5B6868 
768 DATA 8D565BAE945BF88EA5CB18692885C 
B9882E6CCCAD8F2AE9E5BF88EA5CD18692885C 
D98829B3938393844415441E6CECAD8F2 

I 778 DATA AD565BC983D6834CCB5BA5CF4A4AA 
8A5CF2983AAE8B1CBCAFO050A0A4C495B29C68 
5D1C9FFF824A5D84A4AA8C828B82EA5D8 
788 DATA 2983AAE8BDEF5BCAFB8746D146D14 

tl C6B5B49FF31CD85D191CDA5CFC986F88DE6D8E 
J6CFAD565BC983DBAEF855EE9B39313838 
J 798 DATA 44415441945BA9BBC98BDBB168EE9 
E5BA988C9C8B8F6A98885CFA98885D8A928186 
5CB85CB9882E6CCA9281865CD85CD9882 
888 DATA E6CEAD565BC983F81D4C3C5BA5CF4 
A4A85CF8DA45BAD865B4A4A8D8B5BA5D84A4A8 
5D88DA85BA4CFB1CBA4D891CD4C7D5BC8 
818 DATA 388C83689B3931313844415441686 
885CD8D465C4A4A8D875C68688D9E5C68688DD 
55C4A4A8D915C68688DA85C6868186A6A 
828 DATA 6A8DAF5CA95885CBA96185CCAE9E5 
CF88EA5CB18692885CB9882E6CCCAD8F226AE5 
CAD9E5CCDA85CD86168A9882983AAE8BD 
838 DATA EFSB49FF85CFADAF5CCAF8854A9B3 
9313238444154414A4C555C85D8ADD55C29B3A 
AE8BDEF5B49FF8D935CADAF5CCAF8B54A 
848 DATA 4A4C715C85D1A9281865CB85CB9BB 
2E6CCA888A5CF31CB85D891CBA880A98831CB8 

i 5D191CBEE9E5CA988C988F882D8D6AD46 
ZN 858 DATA 5C85CD2BAE5C68A9BB85CEA5CD4A4 
AA8A5CD2983AAE89B3931333844415441BDEF5 
BCAF88746CE46CE4CC85C49FF31CB85CE 
868 DATA 91CBA5CDC988F885E6CD4CAE5C689 
B3932383844415441515252525252525252525 

■ 752525252525252525257525252525252 
HJ 878 DATA 525252575252525252525252457C8 
I 82D6F6465888888887C8826696C6C8888e8887 
C88266C6978888888887C8028616C7665 
888 DATA 88887C41525252525252525252535 
252525252525252529B3932313844415441535 
252525252525252525352525252525252 
898 DATA 52447C882469736B888808867C882 

P3656C88888888887C88216E696D617465887C8 
8246F75626C65887C5A52525252525252 
988 DATA 52525852525252525252525258525 
252525252525252585252525252525252439B 






ture 



HH 



ZK 



PY 



UP 



EN 



CD 



PN 



ND 



LISTING 3 : ASSEMBLY 



1868 ; PICTURE PERFECT Copy Routine 

1818 ; Assewbiy Listing 

1828 ; Written by Joe D. Brzuszek 

1838 ; 

1848 ; Call from BASIC with 

1858 ; A=USRC23253,S1,X1 J Y1,X2,Y2|S2,X 

3,Y3,CELJ 

1868 ; 

1878 ; progran equates 

1888 XI = SCF 

1090 X3 = $D0 

1188 GRABIT = $D1 

1118 ; 

1128 *=$5AD5 ; =23253 deciHal 

1130 1 

1140 PLA jpull accunulator fr 

on stack 

1150 PLA 

1160 5TA See ;hi byte, copy f 

row 

1170 PLA 

1180 STA $CB ;lo byte, copy f 

ron 

1190 PLA 

1200 PLA 

1210 STA XI 

1220 STA AX1+1 ; backup storag 

e 

1230 PLA 

1248 PLA 

1258 STA Yl+1 

1268 PLA 

1278 PLA 

1288 STA X2+1 

1298 PLA 

1388 PLA 

1318 STA Y2+1 

1320 IMC Y2+1 

1330 PLA 

1348 STA $CE ;hi byte, copy t 

O 

1358 PLA 

1368 STA $CD ; lo byte, copy t 



1378 PLA 

1388 PLA 

1398 STA X3 

1488 STA AX3+1 ; backup storag 

e 

1418 PLA 

1420 PLA 

1438 STA Y3+1 

1448 PLA 

1458 PLA 

1468 STA CEL+1 ; indicates tra 

nsparent color 

1478 ; 

1488 ;find row to copy fron 

1498 LDX Yl+1 

1588 BEQ NOPLUS {if Yl=8, no 

addition is needed 

1510 DH1 LDA $CB 

1528 CLC 

1538 ADC 848 ;each Mode 14 li 

ne is 40 bytes wide 

1540 STA $CB 

1550 BCC NX1 

continued on page 63 
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Dark Chambers 

Atari Corp. 

1196 Borregas Avenue 

Sunnyvale, CA 94086 

(408) 745-2000 

8-bit cartridge, $39.95 



Reviewed by Matthew J.W. Ratcliff 

A cold chill shoots up your spine as you 
face the Dark Chambers. The cob- 
blestone floor, moldy brick walls, 
flickering torches, and a pair of 
glowing eyes beckons to you, prom- 
ising a magical mystery maze of excitement, 
danger and adventure. 

This is a one- or two-player graphics ad- 
venture with twenty-six different levels, A 
through Z. Each screen is a maze, viewed 
from above, that presents a puzzle to be 
solved— with a few complications! 

Each chamber is a highly detailed, smooth- 
ly scrolling room, littered with treasures and 
weapons to collect. But the ghouls of this ex- 
pedition will try to thwart you every step of 
the way. The most difficult ghoul to destroy 
is the Grim Reaper. Each time he is blasted, 
he will transform into the next weakest type 
of ghoul— such as a wizard, then wraith and 
so on— until he reaches the weakest form and 
is obliterated. 

Your soldier of fortune responds quickly 
to joystick commands, and by simply walk- 
ing over objects will acquire them. Collect- 
ing a gun will increase shooting speed, and 
a dagger will make your shots more powerful. 
A "lifeline", a horizontal bar at the bottom 
of the screen, is displayed for each player. It 
decreases each time you collide with a ghoul, 
poison or a booby trap. If this line disappears, 
your life and the game has ended. Two peo- 
ple can play simultaneously, which makes 
Dark Chambers a lot more fun. In the two- 
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player, cooperative mode, a dead player may 
be resuscitated by shooting the beating heart 
that is hidden somewhere in each level. The 
two players must share the collection of food 
and weapons, to maximize progress through 
the game. 

Where do ghouls come from? Their par- 
ents are called spawners; five different kinds 
create the various foes you will face. Each 
time a spawner is blasted, it too mutates into 
the next weakest form, until it is finally des- 
troyed. The "underground" spawner, produc- 
ing an infinite supply of ghouls, cannot be 
destroyed. Fortunately, up to 15 bombs may 
be collected and carried. Whenever the 
screen is choked with ghouls and spawners, 
a quick double press of the fire button 
eliminates everything in sight. 

Keys must be collected to unlock doors 
which lead to more difficult levels in the 
game. You must find the hole with a ladder 
and climb down to explore the next maze. 

Dark Chambers has three difficulty levels. 
On the beginner level, I was able to master 
the game in just a few days, and make it 
through all 26 screens. I was disappointed to 
see Screen A again, right after conquering 
Level Z. There is no ultimate goal in this 
game— no damsel in distress, no evil king to 
destroy, and no special award for completing 
the game. It simply continues with the first 
screen, so that you may explore the same 
mazes all over again. 

At standard and advanced levels, Dark 



Chambers is challenging, with more and 
nastier ghouls to deal with. The mazes at 
each level seem to be the same from one 
game to the next, with the exits, spawners, 
keys and locked doors in the same locations. 
Only the placement of food and treasures 
seems to be random from game to game. 

One of the nicest features about Dark 
Chambers is that you can always continue 
where you left off. Simply press Fire to pick 
up at the level you died on. You must start 
over collecting your shield, weapons and 
treasures, however. 

Dark Chambers sports superb graphics, 
good sound effects, and playability that out- 
shines many other games. It is much more 
responsive to user inputs than Gauntlet, a 
similar (but more sophisticated) game from 
Mindscape. It is much easier to master than 
Into The Eagle's Nest (another magnificent 
graphics adventure from Atari, which will 
take much longer to beat even though it has 
only four different mazes to conquer). Ex- 
cept for the minor disappointment of having 
nothing special happen when completing all 
26 levels, Dark Chambers is a top-notch 
game that will provide plenty of challenge 
and excitement. 



Matthew Ratcliff, a frequent contributor to 
ANALOG Computing, lives in St. Louis, 
Missouri with his wife and two children, d 




by Matthew Ratclift 



The light gun that comes with the Atari 
XEGS is an exciting alternative to 
joysticks for video games. While new 
light-gun games are slow to come to 
market, you may be interested in writ- 
ing your own applications for it. If you don't 
have a light gun, they should be available 
separately at many toy stores that carry the 
Atari XEGS. It is called the XES2001 (XES) 
and is packaged with Atari's original Bug 
Hunt game for $34.95. If you can't find one 
in your area, call Atari at 408-745-2000 and 
order it direct through their customer service. 
The XES is a difficult creature to under- 
stand, but it can be thought of as a "long dis- 
tance light pen." Whenever you wish to 
determine the current light-gun position, sim- 
ply PEEK its horizontal and vertical positions 
into BASIC variables. These locations are 
referred to as LPENH (Memory Location 
564) and LPENV (565) in Compute! 's Map- 
ping the Atari. These are "shadow" locations 
for the hardware registers at 54284 (X posi- 
tion) and 54285 (Y position). I've found no 
difference in using one over the other, and 
generally use the hardware registers. 

The problem with interpreting the light gun 
lies in the seemingly bizarre numeric values 
it will return. For the Y position (LPENV), 
readings will vary from a low of about 17 to 
a high of 112 inclusive, for a range of 96, in 
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all graphics modes. The X position (LPENH) 
is extremely weird. It starts at a low of about 
90, increases to 227, drops to at about text 
Column 34, and then increases again to a 
high of about 30. These readings can be ad- 
justed as follows: 



IOB0 LPENH=54284:LPENU=54285 

1010 X=PEEK£LPENHJ 

1O20 Y=PEEKCLPENUJ 

103O IF CX<40) THEN X=X+227 : I 

F CX>255J THEM X=255 

1040 X=X-90!IF CX<0J THEM X=8 

1O50 Y=Y-17:IF CY<0) THEN Y=8 



This code will convert the X readings to 
a value from to 159, and the Y readings will 
vary from to 95. These ranges of 160 and 
96 turn out to be exact multiples, by powers 
of 2 (ideal for assembly language program- 
mers), of the horizontal and vertical resolu- 
tions of all 16 different graphics modes! For 
example, you would multiply the X and Y 
readings above by 2, to convert gun position 
to screen coordinates in Graphics Mode 24, 
the 320 x 192 mode (implying that you can 
"shoot" only every other pixel). In Mode 0, 
the X and Y readings should be divided by 
4 to map directly onto the screen. 

All of this dirty work can now be done for 
you by Gun Assist. Listing 1 is the BASIC 
data used to create your copy of Gun Assist. 



You should type this data using the M/L Edi- 
tor in this issue. The resultant file, a machine- 
language program, may be executed from 
DOS. Gun Assist will install a small VBI rou- 
tine in Page 4 of memory (the 128-byte cas- 
sette buffer). This routine is called 60 times 
a second by the operating system. It continu- 
ously monitors the current graphics mode at 
Memory Location 87 (DINDEX in Mapping 
the Atari). From this mode Gun Assist de- 
termines the proper multiplier or divisor to 
convert the adjusted gun readings to screen 
coordinates. 

Gun Assist must be installed on your boot 
disk as an AUTORUN.SYS file. When run, 
Gun Assist checks to see if it has already 
been installed. If not, it will copy the VBI 
handler into the cassette buffer and enable 
it. If Gun Assist is already in memory, it 
will not load again (this would crash the sys- 
tem). You are warned of the conflict, and 
prompted to press a key to continue. Once 
Gun Assist has installed the new handler, 
it displays a title screen, with all the proper 
credits. If the light gun is detected in the 
first or second joystick port, you are in- 
formed. Detecting the location of the gun 
is simply a matter of reading all the joystick 
ports, and looking for the one that returns a 
14 instead of the usual 15. When the trigger 
is pressed, the STICK reading of that port 
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goes from 14 to 15. 

Once you have Gun Assist up and running, 
try this simple test program from Atari 
BASIC: 



10 GRAPHICS 0:P0KE 752,1:P0KE 
710,19:POKE 709,0:P0KE 712,1 
2 

28 POSITION 10,10:? "X=";PEEK 
C258);" " 

30 POSITION 10,11:? "Y^-JPEEK 
12571;" ■■ 
40 GOTO 20 



Notice that we are printing a small amount 
of black text on a white screen. Touch the 
screen with the light gun and move it to all 
four corners. Values should range from to 
39 in the X, and to 23 in the Y directions. 
Point the light gun at the letter X on the 
screen; it should display 10,10 for the current 
position. Your screens must be bright to get 
accurate readings. The screen borders should 
also be of a light shade to improve gun ac- 
curacy near the edges of the display. Jim 
Zalewski, author of Barnyard Blaster, warns 
that interrupts, such as keyboard input or disk 
I/O, can adversely affect gun accuracy. 
Neither of these will be a problem most of 
the time. 

If your screens must be dark, or you are 
simply not satisfied with the gun's accuracy, 
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then flash the display. This is done by turn- 
ing the screen all white (use a luminance of 
15), pausing at least one jiffy (a y M of a sec- 
ond; PEEK Location 20 to read jiffies), read- 
ing the gun, and then restoring the original 
screen colors. Jim Zalewski recommends a 
screen flash and averaging technique for best 
results. Turn the screen white, wait y 60 of a 
second, read the coordinates, return the 
screen colors to normal, wait y 60 of a sec- 
ond, and take a second set of readings. Add 
the pair of readings and divide by 2. Barn- 
yard Blaster, which is noticeably more ac- 
curate than Bug Hunt, employs this 
technique. 

Gun Assist pays no attention to the light 
gun's trigger, screen colors, or much of any- 
thing else. It just takes the readings and per- 
forms the conversions for you. Not much else 
would fit in 128 bytes of the "safe" memory 
of the cassette buffer. (Actually, I could have 
squeezed in one more byte.) It is up to you 
to ensure light-gun accuracy with one of the 
techniques noted above. 

Type in and run Listing 2, a short demo 
for Gun Assist. Point the gun at the screen 
and squeeze the trigger. When pressed, the 
current coordinates are displayed in the text 
window and a line is drawn to that position. 
Try holding the gun very steady while press- 
ing the trigger and note the horizontal "jit- 



ter." The XES has much more "noise" in the 
horizontal direction than vertical. This is due 
to some hardware limitations in the way the 
POKEY chip scans the gun. In your pro- 
grams which use the XES for input, it is wise 
to make the objects that you select, or 
"shoot," wide enough to compensate for this. 
Experimentation will be required to deter- 
mine the optimum technique; Gun Assist 
makes it easy. 

Listing 3 is the Mac/65 source code for 
Gun Assist. The file contains complete 
documentation on the technique employed. 
The code beginning at the label INSTALL 
checks to see if the VBI is already present, 
installs the handler and displays the title 
screen. The code from labels DUMMY to 
LT480 is the entire handler, 127 bytes of ob- 
ject code. The JMP SFFFF is code that is 




Since Memory 

Location 256 is 

preserved, you may 

add some digitized 

death and 

destruction in your 

light-gun games 

that use Gun 

Assist and the 

Covox PLAY 

utility. 



modified by the INSTALL routine, based on 
the current system VBI exit vector. This code 
hooks into this vector chain gracefully by 
finding the correct exit vector (see VVBLKD 
in Mapping the Atari ) instead of brute force 
exiting to some ROM address. This handler 
could be transplanted into your own assem- 
bly language programs. With the JMP $FFFF 
replaced by an RTS instruction, it may be 
used as a simple subroutine instead of an in- 
terrupt handler. 

The computed Y coordinate of the light gun 
is stored near the bottom of the Atari system 
stack at 257. The X coordinate is stored at 
258 and 259. You need not look at 259 un- 
less Graphics Mode 8 or 24 is being used, 
where X can be greater than 256. Why didn't 
I use the very bottom of the stack, Memory 
Location 256? The Covox Voice Master 
Junior uses this location as a page pointer to 
its speech data. I am a big fan of the Covox, 



as I'm sure many of you are. Since Memory 
Location 256 is preserved, you may add some 
digitized death and destruction in your light- 
gun games that use Gun Assist and the Co- 
vox PLAY utility. 

There are many potential applications for 
the XES2001. Games are the most obvious, 
of course. I am currently exploring the pos- 
sibility of a Rambug EI (the original was in 
ANALOG, March 1987, the first "computer 
bug blasting game"), replacing joystick in- 
put with the light gun. You could also use the 
gun as a light pen to make menu selections. 
Whether you are simply experimenting or de- 
veloping a full-sized application, Gun Assist 
will make the task an easy one. 

Matthew Ratcliff, a frequent contributor to 
ANALOG, lives in St. Louis, Missouri, with 
his wife and two children. Matt has had over 
100 computer articles published. 




1000 DATA 255,255,8,52,175,52,2,3,3,1, 

1,1,0,6,255,1,7099 

1010 DATA 1,1,2,2,0,0,2,2,3,2,1,1,0,0, 

255 255 9032 

1020 DATA 255,255,2,3,255,255,166,87,1 

73,12,212,201,40,176,6,105,7641 

1030 DATA 227,144,2,169,255,201,90,176 

,2,169,90,56,233,90,201,160,9988 

1040 DATA 144,2,169,159,141,2,1,189,8, 

4,240,22,48,9,168,78,2029 

1050 DATA 2,1,136,208,250,240,11,160,0 

,140,3,1,14,2,1,46,8747 



AUGUST A.IM.A.L.O.Q. Computing 




1666 DATA 3,1,173,13,212,56,233,17,176 

,2,169,8,141,1,1,189,3148 

1870 DATA 16,4,48,11,248,12,168,78,1,1 

,136,288,250,248,3,14,5244 

1080 DATA 1,1,76,255,255,83,58,155,8,7 

2,162,96,169,12,157,66,5188 

1090 DATA 3,32,86,228,162,96,169,3,157 

,66,3,169,127,157,68,3,3971 

1100 DATA 169,52,157,69,3,104,157,75,3 

,41,240,73,16,9,12,157,1437 

1110 DATA 74,3,32,86,228,96,176,52,171 

,53,173,36,2,281,32,208,6046 

1120 DATA 59,173,37,2,201,4,208,52,76, 

209,52,253,65,108,114,101,6610 

1130 DATA 97,100,121,32,105,110,32,117 

,115,101,155,162,0,169,9,157,497© 

1140 DATA 66,3,169,193,157,68,3,169,52 

,157,69,3,169,16,157,72,3818 

1150 DATA 3,169,0,157,73,3,32,86,228,7 

6,151,57,173,36,2,141,3618 

1160 DATA 125,52,173,37,2,141,126,52,1 

62,128,160,0,185,0,52,153,4341 

1170 DATA 0,4,200,202,268,246,169,32,1 

60,4,166,20,228,20,240,252,963 

1180 DATA 141,36,2,140,37,2,169,0,32,1 

31,52,76,54,53,17,18,8488 

1190 DATA 18,18,18,18,18,18,18,18,18,1 

8,18,18,18,18,5,155,5635 

1200 DATA 162,0,169,9,157,66,3,169,36, 

157,68,3,169,53,157,69,3535 

1218 DATA 3,169,18,157,72,3,169,8,157, 

73,3,32,86,228,76,105,3484 

1220 DATA 53,124,32,32,160,199,245,238 

,160,193,243,243,233,243,244,160,8968 

1230 DATA 32,124,155,162,0,169,9,157,6 

6,3,169,87,157,68,3,169,4225 

1240 DATA 53,157,69,3,169,18,157,72,3, 

169,0,157,73,3,32,86,982 

1250 DATA 228,76,156,53,1,18,18,18,18, 

18,18,18,18,18,18,18,4493 

1260 DATA 18,18,18,18,4,155,162,0,169, 

9,157,66,3,169,138,157,4641 

1270 DATA 68,3,169,53,157,69,172,53,16 

7,54,3,169,18,157,72,3,2554 

1288 DATA 169,8,157,73,3,32,86,228,76, 

207,53,124,32,65,78,89,3590 

1290 DATA 32,65,116,97,114,105,32,77,1 

11,100,101,124,155,162,0,169,5813 

1300 DATA 9,157,66,3,169,189,157,68,3, 

169,53,157,69,3,169,18,3481 

1310 DATA 157,72,3,169,8,157,73,3,32,8 

6,228,76,2,54,124,88,2391 

1328 DATA 61,80,69,69,75,40,50,53,56,4 

1,32,32,32,32,124,155,267 

1330 DATA 162,0,169,9,157,66,3,169,240 

,157,68,3,169,53,157,69,5501 

1340 DATA 3,169,18,157,72,3,169,8,157, 

73,3,32,86,228,76,53,2782 

1350 DATA 54,124,32,43,50,53,54,42,80, 

69,69,75,40,50,53,57,9198 

1360 DATA 41,124,155,162,0,169,9,157,6 

6,3,169,35,157,68,3,169,3740 

1370 DATA 54,157,69,3,169,18,157,72,3, 

169,0,157,73,3,32,86,1833 

1380 DATA 228,76,164,54,124,32,89,61,8 



0,69,69,75,40,50,53,55,175 

1390 DATA 41,32,32,32,124,155,162,0,16 

9,9,157,66,3,169,86,157,4740 

1480 DATA 68,3,169,54,157,69,3,169,18, 

157,72,3,169,8,157,73,3049 

1410 DATA 3,32,86,228,76,155,54,1,18,1 

8,18,18,18,18,18,18,6143 

1420 DATA 18,18,18,18,18,18,18,4,155,1 

62,0,169,9,157,66,3,352 

1430 DATA 169,137,157,68,3,169,168,54, 

163,55,54,157,69,3,169,18,3510 

1440 DATA 157,72,3,169,0,157,73,3,32,8 

6,228,76,206,54,124,32,4277 

1450 DATA 85,115,101,32,194,210,201,19 

9,200,212,32,32,32,32,124,155,7285 

1460 DATA 162,0,169,9,157,66,3,169,188 

,157,68,3,169,54,157,69,5177 

1470 DATA 3,169,18,157,72,3,169,0,157, 

73,3,32,86,228,76,1,2080 

1488 DATA 55,124,32,115,99,114,101,101 

,110,32,99,111,108,111,114,115,5272 

1490 DATA 32,124,155,162,0,169,9,157,6 

6,3,169,239,157,68,3,169,6389 

15O0 DATA 54,157,69,3,169,18,157,72,3, 

169,0,157,73,3,32,86,1163 

1518 DATA 228,76,52,55,124,32,192,111, 

114,32,114,101,108,185,97,98,4389 

1520 DATA 108,101,32,32,124,155,162,0, 

169,9,157,66,3,169,34,157,4295 

1530 DATA 68,3,169,55,157,69,3,169,18, 

157,72,3,169,0,157,73,3183 

1540 DATA 3,32,86,228,76,183,55,124,32 

,114,101,97,100,105,110,103,4923 

1550 DATA 115,46,32,32,32,32,32,124,15 

5,162,0,169,9,157,66,3,1945 

1560 DATA 169,85,157,68,3,169,55,157,6 

9,3,169,18,157,72,3,169,3836 

1570 DATA 0,157,73,3,32,86,228,76,154, 

55,124,32,84,181,99,104,4334 

1580 DATA 32,65,115,115,105,115,116,32 

,98,121,124,155,162,8,169,9,4931 

1590 DATA 157,66,3,169,136,157,164,55, 

159,56,68,3,169,55,157,69,4975 

16O0 DATA 3,169,18,157,72,3,169,8,157, 

73,3,32,86,228,76,285,5474 

1610 DATA 55,124,32,74,105,109,32,90,9 

7,108,101,119,115,107,105,32,4000 

1620 DATA 32,124,155,162,0,169,9,157,6 

6,3,169,187,157,68,3,169,5815 

1630 DATA 55,157,69,3,169,18,157,72,3, 

169,0,157,73,3,32,86,1294 

1640 DATA 228,76,0,56,1,18,18,18,18,18 

,18,18,18,18,18,18,4427 

1658 DATA 18,18,18,18,4,155,162,8,169, 

9,157,66,3,169,238,157,6531 

1660 DATA 68,3,169,55,157,69,3,169,18, 

157,72,3,169,8,157,73,3313 

1670 DATA 3,32,86,228,76,51,56,124,40, 

99,41,32,49,57,56,57,349 

1680 DATA 32,65,110,97,108,111,183,124 

,155,162,0,169,9,157,66,3,3875 

1698 DATA 169,33,157,68,3,169,56,157,6 

9,3,169,18,157,72,3,169,3869 

1700 DATA 0,157,73,3,32,86,228,76,102, 
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56,124,66,121,32,77,97,3487 

1710 DATA 116,42,82,97,116,32,32,32,32 

,32,124,155,162,8,169,9,2413 

172fl DATA 157,66,3,169,84,157,68,3,169 

,56,157,69,3,169,18,157,4379 

1730 DATA 72,3,169,0,157,73,3,32,86,22 

8,76,153,56,124,82,97,4787 

1740 DATA 116,119,97,114,101,32,32,32, 

32,32,32,32,32,124,155,162,2431 

1750 DATA 8,169,9,157,66,3,160,56,155, 

57,169,135,157,68,3,169,5845 

1760 DATA 56,157,69,3,169,18,157,72,3, 

169,0,157,73,3,32,86,1425 

1770 DATA 228,76,204,56,124,83,111,102 

,116,119,111,114,107,115,44,32,4693 

1780 DATA 49,57,56,57,124,155,162,0,16 

9,9,157,66,3,169,186,157,6860 

1790 DATA 68,3,169,56,157,69,3,169,18, 

157,72,3,169,0,157,73,3447 

1800 DATA 3,32,86,228,173,120,2,201,14 

,208,54,76,6,57,124,71,3828 

1810 DATA 117,110,32,105,110,32,112,11 

1,114,116,32,48,32,32,124,155,3395 

1820 DATA 162,0,169,9,157,66,3,169,244 

,157,68,3,169,56,157,69,6069 

1830 DATA 3,169,18,157,72,3,169,0,157, 

73,3,32,86,228,76,151,4840 

1840 DATA 57,173,121,2,201,14,288,54,7 

6,67,57,124,71,117,110,32,3783 

1850 DATA 105,110,32,112,111,114,116,3 

2,49,32,32,124,155,162,0,169,4614 

I860 DATA 9,157,66,3,169,49,157,68,3,1 

69,57,157,69,3,169,18,3165 

1870 DATA 157,72,3,169,0,157,73,3,32,8 

6,228,76,151,57,76,121,4738 

1880 DATA 57,124,71,117,110,32,238,239 

,244,32,102,111,117,110,100,32,7229 

1890 DATA 32,124,155,162,0,169,9,157,6 

6,3,169,103,157,68,3,169,5077 

1900 DATA 57,157,69,3,169,18,157,72,3, 

169,0,157,73,3,32,86,1566 

1910 DATA 228,76,172,57,124,82,156,57, 

56,58,69,83,69,84,32,115,2942 

1920 DATA 111,32,114,101,109,111,118,1 

01,124,155,162,0,169,9,157,66,5868 

1930 DATA 3,169,154,157,68,3,169,57,15 

7,69,3,169,18,157,72,3,3082 

1940 DATA 169,0,157,73,3,32,86,228,76, 

223,57,26,18,18,18,18,402 

1950 DATA 18,18,18,18,18,18,18,18,18,1 

8,18,3,155,162,0,169,161 

1960 DATA 9,157,66,3,169,205,157,68,3, 

169,57,157,69,3,169,18,4201 

1970 DATA 157,72,3,169,0,157,73,3,32,8 

6,228,76,16,58,32,208,3829 

I960 DATA 242,229,243,243,160,225,160, 

235,229,249,174,174,174,155,162,0,4946 

1990 DATA 169,9,157,66,3,169,0,157,68, 

3,169,58,157,69,3,169,4150 



2000 DATA 16,157,72,3,169,0,157,73,3,3 

2,86,228,169,255,205,252,1989 

2810 DATA 2,240,251,141,252,2,96,226,2 

,227,2,176,52,0,0,0,2659 



LISTING 2: BASIC 



10 REM SAUE"D:GUNTEST.BAS" 

20 REN For use With Gun Assist UBI 

30 REM routine by Mat*Rat, for ANALOG 

40 REM COMputing CO 1989. YOU 

50 REM Must execute GUNUBIM.COM fPOM 

60 REM DOS before running Me. 

70 GRAPHICS 8:P0KE 712,10:P0KE 710,10: 

POKE 709,0:C0L0R 1 

80 X=PEEK C258 ) +256*PEEK C259 J : Y=PEEK C25 

71 

90 IF £X<320) AND CY<160) THEN PLOT X, 

Y:G0T0 110 

100 GOTO 80 

110 POKE 752,1 

120 IF STICK CI) =14 THEN 120 

130 IF PEEKC764)<>255 THEN POKE 764,25 

SiGRAPHICS 8:P0KE 712,10:P0KE 71O,10:P 

OKE 709,0:C0L0R liPOKE 752,1 

140 FOR 1=1 TO 10: NEXT I 

150 X=PEEKC258)+256*PEEKC259) :Y=PEEKC2 

57) 

160 ? "X— ""X 1 " Y="'Y 

|l70 IF CX<320) AND' CY<160) THEN DRAWTO 

X Y 
1180 GOTO 120 



LISTING 3: ASSEMBLY 

O wSAUEttD:GUNUBIM.M65 

10 *ASM, ,«D: GUNUBIM.COM 

20 .OPT NO LIST 

30 * Uersion l.OO, CO 1989, Analog 

40 * COMputing 

50 * By Matthew J. M. Ratcliff 

60 * Ratware Softworks 

70 * install a UBI 

80 * handler for the 

90 * Atari light gun. 

OlOO * Each UBI 

0110 * LPENU and LPENH 

continued on page 66 
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continued from page 56 

1569 IMC SCC 

1570 NXi DEX 
1580 BNE DM1 
1538 ; 

1608 jfind row to copy to 

1610 H0PLU5 LDX Y3+1 ;if Y3=0, no ad 

dition is needed 

1620 BEQ NOPLUZ 

1630 DM2 LDA $CD 

1640 CLC 

1650 ADC 840 ;each node 14 li 

ne is 40 bytes wide 

1660 STA $CD 

1670 BCC NX2 

1680 INC $CE 

1690 NX2 DEX 

1700 BNE DM2 

1710 NOPLUZ LDA CEL+1 

1720 CMP 83 

1730 BNE NEMPLOT 

1740 JMP F5TC0PY ; f ast copy 

1750 ; 

1760 jbegin copying the image pixel 

1770 ;by pixel . . . 

1780 ;find colunn to copy from 

1790 NEMPLOT LDA XI 

18O0 LSR A ;divide by 4 

1810 LSR A 

1820 TAY ;Y = horizontal offs 

et 

1830 LDA XI 

1840 AND 803 

1850 TAX 

I860 INX 

1870 ; 

1880 ;locate pixel to copy 

1890 LDA C$CBJ,Y 

1900 SHIFT DEX 

1910 BEQ ANDIT 

1920 ASL A 

1930 ASL A 

1940 JMP SHIFT 

1950 ANDIT AND 8192 

1960 STA GRABIT j Store bit pa 

ttern of pixel 

1970 ; 

1980 ;nake pixel color transparent? 

1990 CEL CMP tt255 

2000 BEQ NOPLOT 

2010 ; 

2020 ;find horizontal column to copy t 

o 

2030 LDA X3 

2040 LSR A jdivide by 4 

2050 LSR A 

2060 TAY ;Y = horizontal offs 

et 

2<*70 CPY 840 ;screen is only 

40 bytes wide! 

208O BC5 ENDLINE ;off screen? 

2090 LDA X3 ;no. 

2100 AND tt03 

2110 TAX 

2120 INX 

2130 ; 

2140 ; adjust copy data 

2150 LDA HBITS-1,X 

2160 RIGHT DEX 

2170 BEQ STOREIT 

2180 LSR GRABIT 

2190 LSR GRABIT 

2200 JMP RIGHT 

2210 STOREIT EOR 8255 



AND t$CD),Y 

ORA GRABIT 

STA C$CDJ,Y ;pixel is St 



2220 
2230 
2240 

ored 

2250 NOPLOT LDA XI 

2260 X2 CMP 80 

2270 BEQ ENDLINE 

2280 INC X3 

2290 INC XI 

2300 LDA CEL+1 

2310 CMP 83 

2320 BNE NEMPLOT 

2330 BEQ ZIPCOPY 

2340 ENDLINE INC Yl+1 ; end of line re 

ached 

2350 Yl LDA 80 

2360 Y2 CMP 80 

2370 BNE BELOM 

2380 EXIT RTS ; return to BASIC 

2390 BELOM INC Y3+1 

2400 Y3 LDA 80 

2410 CMP 8192 ;off bottom of 

screen? 

2420 BCS EXIT 

2430 AXl LDA 80 ;No, carriage ret 

urn. 

2440 STA XI 

2450 AX3 LDA 80 

2460 STA X3 

2470 LDA 840 ; 40 bytes Wide 

2480 CLC ;next line to copy f 

POM 

2490 ADC $CB 

2500 STA $CB 

2510 BCC FROM 

2520 INC $CC 

2530 FROM LDA 840 ; Mode 14 line is 

40 bytes wide 

2540 CLC ;next line to copy t 
o 

2550 ADC $CD 

2560 STA $CD 

2570 BCC JUMP 

2580 INC $CE 

2590 JUMP LDA CEL+1 

2600 CMP 83 

2610 BEQ ZIPCOPY 

2620 JMP NEMPLOT 
2630 FSTCOPY LDA XI ; f ast copy routin 
e 

2640 LSR A jdivide all X valu 
es by 4 

2650 LSR A 

2660 STA XI 

2670 STA AX1+1 

2680 LDA X2+1 

2690 LSR A 

2700 LSR A 

2710 STA X2+1 

2720 LDA X3 

2730 LSR A 

2740 LSR A 

2750 STA X3 

2760 STA AX3+1 
2770 ZIPCOPY LDY XI 

2780 LDA C$CB),Y ; load 4 pix 
els 

2790 LDY X3 

2800 STA C$CD),Y j store 4 pi 
xels 

2810 JMP NOPLOT ; increment an 
d check X and Y values 
2820 HBITS .BYTE 192,48,12,3 d 
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continued from, page 34 



3788 
3790 
3888 
3818 
3826 
3838 
3848 
3858 
3868 
3878 
3888 
3898 
3988 
3918 
3928 
3938 
3948 
3958 
3968 
3978 
3988 
3998 
4888 
4818 
4828 
4838 
4848 
4858 
4868 
4878 
4888 
4898 
4188 
4118 
4128 
4138 
4148 
4158 
4168 
4178 
4188 
4198 
4288 
4218 
4228 
4238 
4248 
4258 
4268 
4278 
4288 
4298 
4388 
4318 
4328 
4338 
4348 
4358 
4368 
4378 
4388 
4398 
4488 
4418 
4428 
4438 
4448 
4458 
4468 
4478 
4488 
4498 
4588 
4518 
4528 
4538 
4548 
4558 
4560 
4578 
4588 



LDA RENT,X 

CMP a 2 
BCC Bl 
L5R A 

STft RENT,X 
LDft 8 <HR 
LDY « >HR 

PHA 
STY L 
JSR PB 
JSR PUTCR 
PLA 
LDY L 

JSR EPRIMT 

LDA PPR8P 

A 



ASL 
TAX 

LDA PRPTAB+1, 

TAY 

LDA PRPTAB.X 

JMP EPRINT j 

jHalve the Value 

B3 JSR GRPR0P 
BHI Bl 
TAX 

LDA C0ST,X 
CMP 82 
BCC Bl 
LSR A 
STA C8ST,X 
LDA 8 <HV 
LDY 8 >HV 
BNE SB 



;get rent 
;don't fall 
; below 1 
;div 2 
;save it 
; '1/2 value 
; 'on inprov. . 

;save hi/lo 
;of nsg 
; 'bad luck' 
; linefeed 
;get nsg 

;print it 
; picked prop 



get name 
X 



print nane 
of a Property 

;grab a prop tt 

; none 

;get price 
;not LT 1 

;div by 2 

;save it 

j "1/2 value' 

jprint it 



;Luck address tables 

; alternate for randonness 

LUCKL .BYTE <B1, <G1, <B2 
.BYTE <G2, <B3, <G3 

LUCKH .BYTE >B1, >G1, >B2 
.BYTE >G2, >B3, >G3 

f 

;Luck Text 

GOOD .BYTE "Good . ", EOL, 8 

BAD .BYTE "Bad.", EOL, 8 

YL .BYTE EOL, EOL, "Your luck " 

•BYTE "was - ",8 
YH .BYTE "YOU win ",8 
YD .BYTE "YOU lose ",B 
HR .BYTE "1/2 Rent on", EOL, 
HV .BYTE "1/2 Value on ",E0L,0 
AN-IMP .BYTE "an inprovenent " 

.BYTE "on", EOL, B 
i 

;Get a Randon Property 
;hho rowners, grtab cur player 

GRPROP JSR HAVE-ANY ;any to get? 
bpl GR2 ;yes indeed 
RTS ;nawh. 



GR2 LDY tt0 

ldx ae 

GR3 LDA HHO.Y 

CMP PNUM 

BNE GR4 

TYA 

STA GRTAB, X 

INX 
GR4 INY 

CPY tt36 

BNE GR3 

INX 

TXA 

JSR GET-RND 

TAX 

LDA GRTAB-1, 



;indx to WHO 
Jindx to GRTAB 
;who owns it 
;ME? 
;no 
;yes,save it 

;next one 

J at end? 

;no 

;now pick a 

;randoM one 

; f rem those 

; we've found 

X 



4598 


STA PPROP 


jpicked prop 


4600 


RTS 




4610 


, 




4620 


; Print a Proper 


ty in Inverse 


4630 


j 




4640 


INVPROP STA L 


;prop nane 


4650 


STY L+l 


j address 


4660 


LDA tt2 




4678 


JSR EPUT 




4688 


LDY tt8 




4690 


INV1 STY SVY 




4780 


LDA CL),Y 


;get byte 


4710 


BEQ INV2 


jdone on 8 


4720 


ORA tt$88 


; inverse 


4730 


JSR EPUT 


;show it 


4740 


LDY SVY 




4750 


INY 


;next byte 


4760 


BNE INV1 




4770 


INV2 LDA 822 


;end 


4788 


JMP EPUT 


;exit 


4798 


i 




4888 


;Get Key Table 


CA - z> 


4818 


i 




4828 


KEY-TAB .BYTE 63,21,18,58,42 


4838 


.BYTE 56,61 


,57,13,1 


4848 


.BYTE 5,0,37,35,8 


4858 


.BYTE 10,47 


,48,62,45 


4868 


.BYTE 11,16 


,46,22,43,23 


4878 


1 




4888 


;Get a Key for 


Input 


4898 


i 




4900 


GET-KEY LDX 8$FF ; Clear CH 


4910 


STX CH 




4928 


GETK1 LDA CH 


;raw code 


4930 


CMP 8$FF 




4948 


BEQ GETK1 


;none pressed 


4958 


AND 863 


;no INV or CTRL 


4968 


CMP 812 


; RETURN? 


4978 


BNE TRY7F 


;no 


4988 


LDA 80 


;0=RET 


4998 


RTS 




5808 


TRY7F CMP 852 


; delete? 


5018 


BNE SCANT 


;no 


5828 


LDA 8$7E 


; DELETE 


5838 


RTS 




5848 


SCANT LDY 825 


;scan table 


5850 


GETK2 CMP KEY_TAB, Y ;iS it? 


5068 


BEQ GETK3 


JYES! 


5878 


DEY 




5880 


BPL GETK2 


;try again 


5890 


BMI GET-KEY 


;no Match 


5108 


GETK3 TYA 


; index 


5118 


CLC 


;add 'A' 


5128 


ADC 8' A 




5138 


RTS 


;out 


5148 


; 




5158 


j Input Owner Nanes 


5168 


; 




5178 


INPUT STA L 


; where in NAME 


5188 


STY L+l 


;BUF to store 


5190 


LDY 80 


; nanes 


5288 


INP1 STY SVY 


;counter 


5218 


LDA 8127 


jour BLOCK 


5220 


STA CLJ,Y 


;cursor 


5230 


JSR GET-KEY 


;get key 


5248 


LDX 80 


;poke speaker 


5250 


STX CONSOL 


; for click 


5260 


LDY SVY 


;get Y 


5270 


CMP 80 


;is A =0CRET?J 


5288 


BED INDONE 


;yes 


5298 


CMP 8$7E 


,'DEL-BK SPC? 


5380 


BNE INEXT 


;no 


5310 


CPY 80 


;is Y=8 


5320 


BEQ INP1 


;yes,no delete 


5330 


LDA 80 


;zap char 


5340 


STA CL3,Y 




5350 


DEY 


;back up 1 


5360 


STA CL),Y 




5370 


JMP INP1 


;get input 


5388 


J 




5398 


INEXT CPY 88 


jend of input? 



5408 


BCS INP1 


;yes 






5418 


STA IBUF.Y 


; input buffer 






5428 


JSR ASC2IC 


;to INT code 






5438 


ORA 8$88 


; inverse for 






5448 


STA CLJ,Y 


; color 






5458 


INY 


;next char 






5468 


BNE INP1 








5478 


, 








5488 


INDONE STA IBUF, 


Y ;8 for an 






5498 


STA CLJ.Y 


;EOL & 






5588 


RTS 


(exit 






5510 


, 








5520 


;Get Player Nanes 






5530 


i 








5540 


GETNAMES LDA 8 <NDLIST ; install 






5550 


STA SDLSTL 


jdisplay list 






5560 


LDA 8 >NDLIST 






5570 


STA SDLSTL+1 






5580 


LDA 858 


jnornal plyfld 






5590 


STA SDMCTL 








5600 


LDY 84 


; screen 






5610 


GNM1 LDA NCLR,Y 


;colors 






5620 


STA COLORS, Y 






5630 


DEY 








5648 


BPL GNM1 








5658 


JSR CLRSCR 


;clear screen 






5668 


; 








5678 


LDA 8 <GR8MEM ;get start 






5688 


STA SCR 


;of nenory 






5698 


LDA 8 >GR0MEM 






5788 


STA SCR+1 








5718 


LDX 88 


;plyr 8 






5728 


GNM8 LDA 8251 


ff 






5738 


STA (SCR9,Y 




^^ 


5748 


INY 


jscrn position 


rj 


5758 


TXA 




V w 


5768 
5778 


CLC 

ADC 8209 


;plyr 8 in 


Q 


5788 


STA CSCR3.Y 


jcolor 




5798 


INY 


;next position 


^^^J 


5808 


LDA 8253 


) 'J ' 


^•^^ 


5818 


STA (SCR},Y 




i^^k a 


5828 


TYA 


;add 18 onto 


§^■^9 


5838 


CLC 


;screen position 


Q 


5648 


ADC 818 




5858 


TAY 


;now in Y 




5860 


INX 


;next plyr 


■ hm 


5878 


CPX MAXP 


;at nax yet? 


5888 


BNE GNM0 


;no do nore 






5898 


LDY 80 


;now get nanes 






5908 


GNM2 STY SVY2 


;save Y 






5918 


LDA SCR 


;nove over 4 






5928 


CLC 


; bytes 






5938 


ADC 84 


;A= low byte 






5948 


LDY SCR+1 


;Y = hi 






5950 


JSR INPUT 


;get a nane 






5960 


LDA IBUF 


;get 1st char 






S970 


BEQ GNM2 


j if none try 






5988 


LDA SCR 


(again 






5998 


CLC 


;add 28 bytes 






6800 


ADC 820 


jto scrn pntr 






6010 


STA SCR 








6020 


LDA 8 >NAMEBUF ;high byte 






6030 


STA L+l 


; low =8 






6040 


LDY SVY2 


;keep Y 






6050 


LDA X9,Y 


;get place in 






6060 


STA L 


;buf fer 






6070 


LDY 88 


;nove nane to 






6088 


GNM3 LDA IBUF,Y 


jNAMEBUF 






6898 


STA {LJ,Y 








6180 


DEY 








6110 


BPL GNM3 


;9 chars total 






6120 


LDY SVY2 


;retrieve Y 






6130 


INY 


jnext plyr 






6140 


CPY MAXP 


j at Max? 






6150 


BNE GNM2 








6160 


RTS 


;YES 






6170 


i 








6188 


;Handle Captial 


Gains Tax 






6198 


I 








6288 


CAPGNS JSR PB 


; 'bad LUCK' 







6218 PRINT YD 
6228 LDA 845 
6238 JMP Blft 



; 'You lose S45G' 
; Jnp into BAD 



LISTING 7: ASSEMBLY 



eiee 

6118 
6128 
6138 
6148 
8158 
8166 
8178 
8168 
6196 
6268 
6218 
6228 
8238 
8246 
8256 
8268 
6276 
6288 
6298 
6368 
6318 
8328 
8338 
8348 
8356 
6366 
6376 
6386 
6398 
6468 
6418 
8428 
8438 
6448 
6458 
6466 
6478 
8488 
6498 
6568 
6518 
6526 
8536 
6546 
8556 
8568 
8578 
8588 
6598 
8668 
8616 
6626 
6638 
8646 
8658 
8668 
6678 
8688 
8698 
6768 
8716 
6726 
8738 
8748 



SflVEBD : CAPITAL6 . M65 



CAPITAL! 
CO 1988 
MAP Of U.S.A. 
By: Barry Kolbe 



Hap Screen Data 

H = Hog Hilton C=Capital Gains 
T = Tax db =double property 
L = LUCK Dicepos = DICE 



SCRH .BYTE S28,$6F 
.BYTE $42, $43, 
.BYTE $28, $28, 
.BYTE $28, $28, 
.BYTE $28, $28, 
.BYTE $28, $28, 
.BYTE $28, $28, 
.BYTE $28, $28, 
.BYTE $28, $28, 
.BYTE $28,$6E, 
.BYTE $28,$6C, 
.BYTE $48, $48, 
.BYTE $48, $48, 
.BYTE $42, $43, 
.BYTE $44, $44, 
.BYTE $43, $45, 
.BYTE $28, $28, 
.BYTE $28, $28, 
.BYTE $28, $28, 
.BYTE $28, $77, 
.BYTE $28,$6D, 
.BYTE $46, $48, 
.BYTE $46, $48, 
.BYTE $48, $48, 
.BYTE $48, $48, 
.BYTE $48,$4C, 
.BYTE $71, $44, 
.BYTE $28, $28, 
.BYTE $28, $28, 
.BYTE $41, $48, 
.BYTE $28, $48, 
.BYTE $48, $48, 
.BYTE $3F,$48, 
.BYTE $48, $48, 
.BYTE $48, $48, 
•BYTE $48, $48, 
.BYTE $48, $55, 
.BYTE $64, $28, 
.BYTE $28, $79, 
.BYTE $3F,$78, 
.BYTE $4B,$48, 
.BYTE $33, $34, 
.BYTE $2B,$2C, 
.BYTE $39,$3A, 
.BYTE $39,$3A, 
.BYTE $39,$3A, 
.BYTE $48,$6B, 
.BYTE $48, $66, 



$78, $46 
$45, $47 
$28, $28 
$28, $28 
$28, $28 
$28, $28 
$28, $28 
$28, $28 
$28, $28 
$49, $28 
$46,$3F 
$3F,$48 
$42, $42 
$43, $44 
$42, $48 
$28, $28 
$28, $28 
$28, $28 
$28, $28 
$48,$5E 
$48, $48 
$48,$3F 
$48, $48 
$46, $48 
$46, $48 
$28, $62 
$44, $72 
$28, $28 
$7B,$43 
$73, $65 
$48,$3F 
$48,$3F 
$48, $48 
$46, $46 
$48, $46 
$48, $46 
$7D,$6D 
$28, $28 
$48, $48 
$28, $28 
$3F,$48 
$39,$3A 
$2B,$2C 
$3B,$3C JL 
$39,$3A 
$35, $36 
$61, $48 
$28, $28 



;db 



H 



8758 


.BYTE 


$79, 


$48 


$48, 


$3F 


8766 


.BYTE 


$4C 


$74 


$28 


$28 


8778 


.BYTE 


$57, 


$48 


$3F 


$48 


8788 


.BYTE 


$48 


$48 


$48 


$3F 


8798 


.BYTE 


$3F 


$3F 


$48 


$48 


8888 


.BYTE 


$48 


$48 


$48 


$48 


8818 


.BYTE 


$48 


$48 


$48 


$48 


8828 


.BYTE 


$48 


$48 


$48 


$48 


6838 


.BYTE 


$48 


$68 


$61 


$48 


8848 


.BYTE 


$48 


$67 


$7B 


$7A 


8858 


.BYTE 


$46 


$48 


$3F 


$4C 


8868 


.BYTE 


$28 


$28 


$28 


$28 


8878 


.BYTE 


$48 


$3F 


$48 


$48 


8888 


.BYTE 


$2B 


$2C 


$48 


$3F jdb 


8898 


.BYTE 


$3F 


$48 


$48 


$46 


6988 


.BYTE 


$48 


$48 


$48 


$46 


8918 


.BYTE 


$48 


$48 


$48 


$48 


6928 


.BYTE 


$48 


$48 


$2B 


$2C ;db 


6936 


.BYTE 


$48 


$5E 


$5F 


$48 


8948 


.BYTE 


$48 


$48 


$48 


$48 


8958 


.BYTE 


$48 


$48 


$48 


$64 


8968 


.BYTE 


$28 


$28 


$28 


$28 


8978 


.BYTE 


$48 


$3F 


$46 


$48 


8988 


.BYTE 


$48 


$48 


$3F 


$48 


8998 


.BYTE 


S3F 


$3F 


$48 


$48 


1868 


.BYTE 


$48 


$48 


$48 


$46 


1618 


.BYTE 


$48 


$48 


$48 


$48 


1628 


.BYTE 


$48 


$48 


$48 


$48 


1838 


.BYTE 


$48 


$48 


$48 


$48 


1848 


.BYTE 


$48 


$48 


$48 


$48 


1856 


.BYTE 


$3F 


$48 


$48 


$64 


1866 


.BYTE 


$28 


$28 


$28 


$28 


1878 


.BYTE 


$48 


$48 


$3F 


$46 


1888 


.BYTE 


$2B 


$2C 


$48 


$3F ;db 


1898 


.BYTE 


$3F 


$3F 


$48 


$48 


1168 


.BYTE 


$3E 


$31 


$31 


$31 ;H 


1118 


.BYTE 


$3D 


$3E 


$32 


$31 


1128 


.BYTE 


$32 


$3D 


$26 


S2C Jdb 


1138 


.BYTE 


$39 


$3A 


$2B 


$2C Jdb 


1148 


.BYTE 


$2B 


$2C 


$2F 


$38 ; C 


1158 


.BYTE 


$48 


$3F 


$48 


$63 


1168 


.BYTE 


$28 


$28 


$28 


$28 


1176 


.BYTE 


$48 


$48 


$3F 


$48 


1186 


.BYTE 


$48 


$48 


$48 


$48 


1196 


.BYTE 


$3F 


$3F 


$48 


$48 


1286 


DICPOS .BYTE 


>3E,$31,$32,$31 


1218 


.BYTE 


$3D 


$3E 


$32 


$31 


1228 


.BYTE 


$32 


$3D 


$48 


$48 


1238 


■ BYTE 


$48 


$48 


$48 


$48 


1248 


.BYTE 


$48 


$48 


$48 


$48 


1258 


.BYTE 


$3F 


$48 


$48 


$48 


1266 


.BYTE 


$68 


$28 


$28 


$28 


1278 


.BYTE 


$53 


$46 


$3F 


$48 


1286 


.BYTE 


$39 


$3A 


$48 


$46 


1298 


.BYTE 


$48 


$3F 


$3F 


$48 


1388 


.BYTE 


$3E 


,$31 


$31 


$31 ;H 


1318 


.BYTE 


$3D 


$3E 


$32 


$31 


1328 


.BYTE 


$32 


$3D 


$48 


$48 


1338 


.BYTE 


$48 


$48 


$48 


$48 


1348 


.BYTE 


$48 


,$3F 


$39 


$3A 


1358 


.BYTE 


$48 


,$48 


$48 


$48 


1368 


.BYTE 


$69 


,$28 


$28 


$28 


1378 


.BYTE 


$4F 


,$48 


$48 


$3F 


1388 


.BYTE 


$46 


$48 


$48 


$48 


1398 


.BYTE 


$46 


$48 


$3F 


$46 


1488 


.BYTE 


$48 


$48 


$48 


$48 


1418 


.BYTE 


$48 


$48 


$48 


$48 


1428 


.BYTE 


$48 


$48 


$48 


$48 


1438 


.BYTE 


$48 


$48 


$48 


$48 


1448 


.BYTE 


$48 


$3F 


$48 


$48 


1458 


.BYTE 


$48 


$48 


$48 


$65 


1468 


.BYTE 


$28 


$28 


$28 


$28 


1478 


.BYTE 


$7E 


$4E 


$48 


$48 


I486 


.BYTE 


$39 


$3A 


$39 


$3A 


1498 


.BYTE 


$35 


$36 


$48 


$3F 


1568 


.BYTE 


$48 


$48 


$48 


$46 


1518 


.BYTE 


$48 


$48 


$48 


$48 


1528 


.BYTE 


$48 


$48 


$48 


$48 


1538 


.BYTE 


$48 


$48 


$37 


$38 


1548 


.BYTE 


$2B 


$2C 


$2B 


$2C Jdb 


1558 


.BYTE 


$48 


$48 


$65 


$28 



1568 


.BYTE 


$28 


$28 


$28 


$28 


1578 


.BYTE 


$28 


$7F 


$4E 


$48 


1588 


.BYTE 


$48 


$48 


$48 


$48 


1598 


.BYTE 


$48 


$48 


$3F 


$3F 


1688 


.BYTE 


$48 


$48 


$48 


$48 


1618 


.BYTE 


$48 


$48 


$48 


$48 


1628 


.BYTE 


$48 


$48 


$48 


$48 


1638 


.BYTE 


$48 


$48 


$48 


$48 


1648 


.BYTE 


$3F 


$48 


$48 


$48 


1658 


.BYTE 


$48 


$66 


$28 


$28 


1668 


.BYTE 


$28 


$28 


$28 


$28 


1678 


.BYTE 


$28 


$28 


$7F 


$7D 


1688 


.BYTE 


$7D 


$4E 


$48 


$48 


1698 


.BYTE 


$2B 


$2C 


$2B 


$2C Jdb 


1788 


.BYTE 


$39 


$3A 


$39 


$3A 


1718 


.BYTE 


$3B 


$3C 


$2B 


$2C JL 


1728 


.BYTE 


$2B 


$20 


$39 


$3A Jdb 


1738 


.BYTE 


$39 


$3A 


$39 


$3A 


1748 


.BYTE 


$48 


$48 


$48 


$48 


1758 


.BYTE 


$48 


$68 


$28 


$28 


1768 


.BYTE 


$28 


$28 


$28 


$28 


1778 


.BYTE 


$28 


$28 


$28 


$28 


1788 


.BYTE 


$28 


$7E 


$7D 


$4E 


1798 


.BYTE 


$48 


$48 


$46 


$48 


1888 


.BYTE 


$3F 


$48 


$48 


$48 


1818 


.BYTE 


$48 


$48 


$48 


$48 


1828 


.BYTE 


$48 


$48 


$48 


$48 


1838 


.BYTE 


$48 


$48 


$51 


$51 


1848 


.BYTE 


$52 


$52 


$52 


$4E 


1858 


.BYTE 


$48 


$48 


$28 


$28 


1868 


.BYTE 


$28 


$28 


$28 


$28 


1878 


.BYTE 


$28 


$28 


$28 


$28 


1888 


.BYTE 


$28 


$28 


$28 


$7F 


1898 


.BYTE 


$7D 


$7D 


$7D 


$7D 


1986 


.BYTE 


$4F 


$48 


$48 


$48 


1918 


.BYTE 


$48 


$48 


$48 


$48 


1928 


.BYTE 


$48 


$48 


$48 


$48 


1938 


.BYTE 


$48 


$78 


$28 


$28 


1948 


.BYTE 


$28 


$28 


$28 


$28 


1958 


.BYTE 


$4F 


$48 


$48 


$28 


1968 


.BYTE 


$28 


$28 


$28 


$28 


1978 


.BYTE 


$28 


$28 


$28 


$28 


1988 


.BYTE 


$28 


$28 


$28 


$28 


1998 


.BYTE 


$28 


$28 


$28 


$28 


2888 


.BYTE 


$7E 


$4F 


$4C 


$4E 


2618 


.BYTE 


$48 


$48 


$48 


$48 


2828 


.BYTE 


$4C 


$7D 


$7D 


$7D 


2838 


.BYTE 


$7D 


$7D 


$28 


$28 


2648 


.BYTE 


$28 


$28 


$28 


$28 


2658 


.BYTE 


$7E 


$4E 


$48 


$68 


2868 


.BYTE 


$28 


$28 


$28 


$28 


2878 


.BYTE 


$28 


$28 


$28 


$28 


2886 


.BYTE 


$28 


$28 


$28 


$28 


2698 


.BYTE 


$28 


$28 


$28 


$28 


2188 


.BYTE 


$28 


$7E 


$28 


$7E 


2118 


.BYTE 


$4E 


$48 


$48 


$4D 


2128 


.BYTE 


$28 


$28 


$28 


$28 


2138 


.BYTE 


$28 


$28 


$28 


$28 


2148 


.BYTE 


$28 


$28 


$28 


$28 


2158 


.BYTE 


$28 


$7E 


$76 


$75 


2168 


.BYTE 


$28 


$28 


$28 


$28 


2178 


.BYTE 


$28 


$28 


$28 


$28 


2188 


.BYTE 


$28 


$28 


$28 


$28 


2198 


.BYTE 


$28 


$28 


$28 


$28 


2288 


.BYTE 


$28 


$28 


$28 


$28 


2218 


.BYTE 


S7F 


$4E 


$48 


$7C 


2228 


.BYTE 


$28 


$28 


$28 


$28 


2238 


.BYTE 


$28 


$28 


$28 


$28 


2248 


.BYTE 


$28 


$28 


$28 


$28 


2258 


.BYTE 


$28 


$28 


$7F 


$54 


2268 


.BYTE 


$28 


$28 


$28 


$28 


2278 


.BYTE 


$28 


$28 


$28 


$28 


2288 


.BYTE 


$28 


$28 


$28 


$28 


2298 


.BYTE 


$28 


$28 


$28 


$28 


2388 


.BYTE 


$28 


$28 


$28 


$28 


2318 


.BYTE 


$28 


S7F 


$4E 


$28 


2328 


.BYTE 


$28 


$28 


$28 


$28 


2338 


.BYTE 


$28 


$28 


$28 


$28 


2348 


.BYTE 


$28 


$28 


$28, 


$28 


2358 


.BYTE 


$28 


$28 


$28, 


$28 r-. 

$28 tri 


2368 


.BYTE 


$28, 


$28 


$28, 



o 



continued from page 62 



8128 


* 


are read and 


eise 


* 


converted to 


ei4e 


* 


SCREEN COORDINATE 


0150 


* 


equivalents, based 


eiee 


* 


on the current 


0170 


* 


graphics node - 


0180 


* 


found in DINDEX. 


0198 


* 




0200 


* 


Algorithm: 


0218 


* 


x range for 


0220 


* 


gun is e-159 


0230 


* 


V range for 


0240 


* 


gun is 8-95 


6250 


* 


These values 


0260 


* 


are close 


0270 


* 


approxi nations. 


0280 


* 


and the 


6290 


* 


unusual readings 


0308 


* 


fron the light 


8318 


* 


gun do require 


0320 


* 


ad just Ken ts. 


0338 


* 


However the 168 


0348 


* 


range for X 


0358 


* 


and 96 range 


0368 


* 


for V work out 


0370 


* 


to be PERFECT 


0380 


* 


Multiples for 


0390 


K 


ALL graphics 


0408 


* 


nodes as follows: 


0410 


* 




0420 


* 


GRAPHICS X-Wd V-ht 


8438 


* 


MODE - Convert 


8448 


* 


factor 


6450 


* 





0460 


* 


6 48-1/4 24-1/4 


8470 


■a 


1 28-1/8 24-1/4 


8480 


* 


2 26-1/8 12-1/8 


8498 


* 


3 86-1/2 24-1/4 


8508 


s 


4 8B-1/Z 48-1/2 


0518 


* 


5 86-1/2 48-1/2 


8528 


* 


6 168-1/1 96-1/1 


8530 


* 


7 168-1/1 96-1/1 


0540 


* 


8 328-2/1 192-2/1 


0550 


* 


9 88-1/2 192-2/1 


0560 


« 


18 88-1/2 192-2/1 


8570 


* 


11 88-1/2 192-2/1 


0580 


* 


12 46-1/4 24-1/4 


8598 


* 


13 48-1/4 12-1/8 


8660 


* 


14 166-1/1 192-2/1 


0610 


* 


15 166-1/1 192-2/1 


0620 


* 




8636 


* 




8646 


¥s 


Note that EVERY 


8656 


* 


conversion is 


8666 


* 


a nultiple of 2! 


8678 


* 


What a stroke 


6686 


* 


of luck Cor was 


8698 


* 


it pure genius 


8786 


* 


on the part of 


6718 


* 


Atari 888 designer 


8726 


* 


Jay Miner?) . 


8738 


* 


The current GR. 


8748 


* 


node can be used 


8756 


* 


as an index 


8766 


* 


into a shift 


8776 


* 


table. If the 


6786 


K 


entry is zero. 


6796 


* 


then no shift. 


8868 


* 


If positive, then 


6818 


* 


shift right 


8828 


* 


to divide. 


8838 


* 


If negative then 


8848 


* 


shift left to 


8858 


* 


nu 1 1 i p 1 y . 


8866 


* 




8878 


LPENH = $D40C 


8888 


LPENV = $D48D 


8898 


UUBLKD = 548 


8986 


D0SL0AD = $3488 



8916 




.OPT OBJ 




6928 




.ORG DOSLOAD 




8938 




•INCLUDE UDliSVSEQU 


. M65 


8948 




• INCLUDE 8DUI0MAC. 


LIB 


8958 


* 






8966 


* 


The UBI code 




8978 


* 


for gun reading 




8988 


* 






8996 


DOSOFFSET = $3008 




1688 


CASBUF = $6488 




1816 


B0T5TACK = 257 




1628 


YGUN = BOTSTACK 




1836 


XGUN = B0T5TACK+1 




1648 


X5HIFT = CASBUF 




1858 


YSHIFT = XSHIFT+16 




1868 


* 






1878 


K 


Actual YGUN, 




1888 


* 


XGUN, XSHIFT and 




1696 


* 


YSHIFT data that 




1188 


* 


will be copied 




1118 


* 


to page 4 - if 




1128 


* 


the UBI isn't 




1138 


* 


already there. 




1148 


* 






1158 


DUM* 




1166 




.BYTE 2,3,3,1 




1176 




.BYTE 1,1,6,8 




1186 




.BYTE -1,1,1,1 




1196 




.BYTE 2,2,8,8 




1268 




.BYTE 2,2,3,2 




1218 




.BYTE 1,1,6,6 




1226 




.BYTE "1,-1, "1,-1 




1236 




.BYTE 2,3,-1,-1 




1248 


* 






1256 


* 


start Of UBI 




1268 


* 


handler for 




1276 


* 


light gun 




1288 


* 






1298 


STAB 




1386 




LDX DINDEX 




1318 




LDA LPENH 




1328 




CMP 848 




1338 




BCS HCK2 




1348 




ADC 8227 




1358 




BCC HCK2 




1368 




LDA 8255 




1378 


HCK2 




1388 




BCS HCK3 




1398 




LDA 898 




I486 


HCK3 




1418 




SBC 898 




1428 




CMP 8166 




1438 




BCC HCK4 




1448 




LDA 8159 




1456 


HCK4 




1468 




LDA XSHIFT, X 




1478 


* 


No Shift reqd 




I486 




BEO SETYGUN 




1498 




BMI 5HLEFT 




1586 




TAY 




1516 


3HR1 




1526 




DEY 




1538 




BNE SHRIGHT 




1548 




BEQ SETYGUN 




1558 


5HLEFT LDY »6 




1568 


m 


In case of node 8 




1578 


* 


where x can be > 256 




1588 




STY XGUN+1 




1596 




ASL XGUN 




1666 




ROL XGUN+1 




1616 


SET\ 




1626 




SEC 




1638 




SBC 817 




1648 




BCS SAUY 




1658 




LDA 88 




1668 


SAW 




1678 




LDA YSHIFT, X 




1688 




BMI SHYLEFT 




1696 




BEQ EXITNOM 





1788 

1716 

1726 

1738 

1746 

1758 

1768 

1776 

1788 

1798 

1868 

1818 

1828 

1836 

1848 

1858 

1868 

1878 

1888 

1898 

1966 

1918 

1928 

1938 

1946 

1956 

1968 

1978 

1986 

1998 

2866 

2816 

2628 

2836 

2648 

2858 

2868 

2878 

2888 

2698 

2186 

2118 

2126 

2136 

2146 

2156 

2168 

2178 

2186 

2198 

2288 

2218 

2228 

2238 

2248 

2258 

2268 

2278 

2288 

2298 

2388 

2316 

2328 

2338 

2348 

2358 

2368 

2376 

2388 

2398 

2468 

2416 

2426 

2438 

2448 

2458 

2468 

2478 

2486 



TAY 
SHYRIGHT LSR YGUN 

DEY 

BNE SHYRIGHT 

BEQ EXITNOM 
SHYLEFT A5L YGUN 

.OPT LIST 

* If address at 

* label LT488 nust 

* be at $47F or below! 
» 

* Modified code 
EXITNOM JMP SFFFF 
LT488 

.OPT NO LIST 

■INCLUDE 8D1: GRAPHICS. M65 
* 

* UBI install code 
* 

UBISTART = START-D0S0FF5ET 
INSTALL LDA UUBLKD 

CMP 8 <UBISTART 

BNE INSTALL1 

LDA UUBLKD+1 

CMP 8 > UBISTART 

BNE IN5TALL1 
ALHERE 

PRINT B,"BAlready in use" 

JMP GUNEXIT 
INSTALL1 LDA UUBLKD 

STA EXITNOM+1 

LDA UUBLKD+1 

STA EXITNOM+2 

LDX 8LT488-DUMMY+1 

LDY 88 
MOUBI LDA DUMMY, Y 

STA CASBUF, Y 

INY 

DEX 

BNE MOUBI 

8 <UBISTART 
8 >VBISTART 

LDX JIFFY 
INST1 CPX JIFFY 

BEQ INST1 

STA UUBLKD 

STY UUBLKD+1 
GRAPHICS 8 
PRINT 8,< 



LDA 
LDY 




8," 

8," 

8," 

8," 

8," 

8," 

B," 

8," 

8," 

8," 

8," 

8," 

8," 

6," 

8," 

9," 

B, 

0, 



lrtll.»=».-H.-f 



ANY Atari Mode 
X=PEEKt258J 
+256*PEEK(259J 
Y=PEEK(257) 



use 1333333 

screen colors 
for reliable 
readings. 
Tech Assist by 
Jin Zalewski 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 
LDA STICK8 
CMP 814 
BNE CKST1 

PRINT 8,"|Gun in port 8 I 
JMP GUNEXIT 
CKST1 LDA STICK8+1 
CMP 814 
BNE CKST2 

PRINT e,"|Gun in port l I 
JMP GUNEXIT 
CKST2 

PRINT 6,"|Gun BUI found I 



CO 1989 Analog 
By Mat*Rat 
Ratware 
Softworks, 1989 



2498 GUNEXIT 



2588 
2518 




PRINT e,"| RESET to reMovel 






2528 


print e," LiiitaJLU-'JH!" 


2538 




LDA 8255 


2548 


VHOL 


2558 




BEQ VHOLDER 


2568 




STA 764 


2578 




RT5 


2588 


* 




2598 


* 


Code startup header 


2688 


* 




2618 




*= S82E8 


2628 




.WORD INSTALL 


2638 


* 




2648 


* 


End of prograM 


2658 


* 




2668 




.END 



LISTING 4: ASSEMBLY 

8 *5AVE8D: GRAPHICS. M65 
18 * 

Mat*Rat's FAVORITE Macro! 



15 

16 

20 

38 

40 

45 

50 

55 

68 * 

78 SNAME .BYTE 

88 GRAFIX 

PHA 



GRAPHICS g 

ENTRY: A-REG CONTAINS 

GRAPHICS MODE "G' 
EXIT: Y-REG HAS 

COMPLETION STATUS 



"Si", 155, 8 



98 

0188 

8118 

8128 

8121 

8138 

8148 

8158 

8168 

8161 

8178 

8188 

8198 

8191 

B288 

8218 

8211 

8228 

8238 

8248 

8258 

8268 

8261 

8262 

8263 

8278 

8271 

828B 

8281 

8282 

8298 

8291 

8388 

8381 

8318 

8311 

8338 

8331 

8332 

8333 

8348 

8358 



;5AUE 
JFILE 



LDX 86*518 

LDA 8CCL0SE 

STA ICCOM.K 
First we «ust close IOCB 86 

JSR CIO 
Ignore any errors fron close 

LDX 86*518 
He will open this IOCB 

LDA 8C0PN 

STA ICCOM.X 

LDA 8 <SNAME 
He use the filename "Si" 

STA ICBADR,X 

LDA 8 >SNAME 
By pointing to it 

STA ICBADR+1,X 

All is setup for open, now 
we tell CIO CS S:) what 
kind of open. 

Retrieve our saved 'G' 
graphics node 

PLA 
Is given to "5: ■ 

STA ICAUX2,X 
(Note that S: ignores upper 
bits of AUX2 

Now we get the upper bits 

AND 8SF8 
And flip bit 4 
EOR 8$18 

cs: expects it to be inverted 
from the nornal BASIC usage) 

Allow read and write access 
for CIO and S: 

ORA 8$8C 

STA ICAUX1,X 



8368 


JSR CIO ;0PEN S: 


8365 * 


Graphics node 'G' now open 


8378 


RTS 


8388 


.MACRO GRAPHICS 


8398 


.IF XBOl 


8488 


.ERROR "GRAPHICS LEN" 


8418 


.ENDIF 


8428 


.IF Xl>255 


8438 


LDA XI 


8448 


.ELSE 


8458 


LDA 8X1 


8468 


.ENDIF 


8478 


JSR GRAFIX 


8488 


.ENDM 



LISTING 5: ASSEMBLY 



*SAVEBD:SY5EQU.M65 



18 

28 
38 
48 
58 
60 
70 



* IOCB and other inportant 

* systeM equates, froM Compute's 

* Happing the Atari and the Mac/65 

* reference Manual froM ICD/OSS 
* 

* I/O CONTROL BLOCK EQUATES 
* 

88 IOCB 

98 * 

8188 * Device handler, set by OS 

8118 ICHID = $8348 

8128 * Device nuMber, set by OS 

8138 ICDNO = $8341 

8148 * I/O COMMand 

8158 ICCOM = $8342 

8168 * I/O Status, sane as error code 

8178 ICSTA = $8343 

8188 * Buffer address, 2 bytes 

8198 ICBADR = $8344 

8288 * Disk handler put routine, 

8218 * address - 1, goes here 

8228 ICPUT = $8346 

8238 * Buffer length, 2 bytes 

8248 ICBLEN = $8348 

8258 * Auxiliary control bytes 



8268 ICAUX1 
8278 ICAUX2 
8288 ICAUX3 
8298 ICAUX4 
8388 ICAUX5 
8318 ICAUX6 



$834A 
$834B 
$834C 
$834D 
$834E 
$B34F 



;AUX 1 

;AUX 2 

;AUX 3 

;AUX 4 

;AUX 5 

,'AUX 6 



* I8CB COMMAND VALUE EQUATES 



8328 * Length of one IOCB 

8338 IOCBLEN = 16 

8348 * 

8358 

8368 * 

8378 * Open channel 

8388 COPN = 3 

8398 * Get binary record 

8488 CGBINR = 7 

8418 * Get text record 

8428 CGTXTR = 5 

8438 * Put binary record 

8448 CPBINR = 11 

8458 * Put text record 
8468 CPTXTR = 9 
8478 * Open IOCB 
8488 CCLOSE = 12 
8498 * Check status 
8588 CSTAT = 13 
8518 * 

* DEVICE DEPENDENT COMMAND 

* EQUATES FOR FILE MANAGER 
* 

32 ; RENAME 

33 ; ERASE 
8578 CPRO S 35 ;PR8TECT 



8528 
8538 
8548 
8558 CREN 
8568 CERA 



8588 


CUNP = 36 JUNPROTECT 




8598 


CPOINT = 37 ; POINT 




8688 


CNOTE - 38 ;N0TE 




8618 


* 




8628 


* AUX1 VALUES REQD FOR OPEN 




8638 


* 




8648 


OPIN = 4 ;0PEN INPUT 




8658 


OPOUT = 8 ;0PEN OUTPUT 




8668 


OPUPD = 12 J OPEN UPDATE 




8678 


OPAPND = 9 ;0PEN APPEND 




8688 


OPDIR = 6 ;0PEN DIRECTORY 




8698 


* 




8788 


* 




8718 


* 




8728 


* MISC ADDRESS EQUATES 




8738 


* 




8748 


CPALOC = $8A 




8758 


* KarM start, 8=cold 




8768 


HARMST = $88 




8778 


* store here, wait for horiz sync 




8788 


HSYNC = 54282 




8798 


* Available Menory, low 




8888 


MEMLO = $82E7 




8818 


* Available Menory, high 




8828 


MEMTOP = $82E5 




8838 


* Upper liMit of application RAM 




8848 


APPMHI = $8E 




8858 


* Atari load/init addr 




8868 


INITADR s S82EZ 




8878 


* Atari Load/Go addr 




8888 


GOADR = $82EB 




8898 


* Cartridge RUN location 


w 


8988 


CARTLOC = $BFFA 


D/^ 


8918 


* CIO Entry address 


^(r 


8928 


CIO = $E456 


ffi\4a 


8938 


* End of line character 


ui\> 


8948 


EOL = $9B 


«" (r~ 


8958 


* 


f ft \^ 


8968 


* Very useful Atari reserved 


If] z- 


8978 


* MeMory and hardware register 


Wf ^= 


8988 


* locations. 


IB 


8998 


* 


fft C 


1888 


RANDOM = 53778 


If] 


1818 


SAVMSC = S58 


*•{ 


1828 


CONSOL = 53279 


aJ 


1838 


COLORS = 788 


T 


1848 


CRSINH = 752 




1858 


BOOT? = 9 




1868 


DINDEX = 87 




1878 


HATABS = 794 




1888 


CH = 764 




1898 


STRIG8 = 644 




1188 


5TICKB - 632 




1118 


POKMSK = $18 




1128 


RAMTOP = $6A 




1138 


SDMCTL = S822F 




1148 


STACK = $8188 




1158 


* 




1168 


IRQEN = $D28E 




1178 


NMIEN = $D4BE 




1188 


SKCTL = SD2BF 




1198 


DMACTL = $D488 




1288 


KBCODE = $D2B9 




1218 


POTGO = $D28B 




1228 


AUDCTL = $D288 




1238 


AUDF3 = $D2B4 




1248 


AUDC3 = $D285 




1258 


PACTL = $D382 




1268 


PORTA = $D388 




1278 


PORTB = SD381 




1288 


* 




1298 


* TiMer counter: 




1388 


JIFFY = 28 ; 68Hz clock 




1318 


* cassette buffer at $488 




1328 


* use as general filenane buff 




1338 


FILENAME = $8488 — 
• Display list pointer H 




1348 




1358 


DLIST = $8238 











* 



Np 



am 




Sra '^-x* 1 *' 




BOOT CAMP 



END USER 
DATABASE DELPHI 



